% $Id: OneDimensionalCA.oz,v 1.1 2011/04/21 12:31:11 leavens Exp leavens $ % One-dimensional cellular automata. % % AUTHOR: Gary T. Leavens \insert 'Generation.oz' \insert 'Rules.oz' declare fun {GenerationsMaker Rule} fun lazy {Generations InitialGeneration} if InitialGeneration == nil then nil else InitialGeneration|{Generations {NextGeneration InitialGeneration Rule}} end end in Generations end fun {NextGeneration Generation Rule} {MapNeighborhoods Generation Rule} end