advance.scs

来自「Pascal Programs Printed in GENETIC ALGOR」· SCS 代码 · 共 7 行

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

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