%%% %%% Authors: %%% Christian Schulte %%% %%% Copyright: %%% Christian Schulte, 2002 %%% %%% Last change: %%% $Date: 2002/11/18 15:37:25 $ by $Author: schulte $ %%% $Revision: 1.1 $ %%% %%% Main file for the lift simulation %%% \insert 'Agent.oz' \insert 'Cabin.oz' \insert 'Lift.oz' \insert 'Floor.oz' declare local proc {LinkLifts Ls I NewCabin} %% Link lifts to cabins case Ls of nil then skip [] L|Lr then {NewCabin L I} {LinkLifts Lr I+1 NewCabin} end end fun {ForCons I N F} %% Create a list with N elements by calling F if I=