advance.scs

Pascal Programs Printed in GENETIC ALGORITHMS IN SEARCH, OPTIMIZATION, AND MACHINE LEARNING by Da

{ advance.scs: advance variables for next time step }

procedure advance(var clearingrec:crecord);
{ advance winner }
begin with clearingrec do oldwinner := winner end;