% $Id: OneDimensionalCATest.oz,v 1.2 2011/04/21 14:51:29 leavens Exp leavens $ % Testing and printing for one-dimensional cellular automata % % AUTHOR: Gary T. Leavens \insert 'TestingNoStop.oz' \insert 'OneDimensionalCA.oz' fun {PrintGenerationsMaker L H} proc {$ InitialGeneration Rule HowMany} Gens = {{GenerationsMaker Rule} InitialGeneration} in for N in 1 .. HowMany do {System.showInfo {StringSlice {Nth Gens N} L H}} end end end PrintGenerations = {PrintGenerationsMaker ~38 38} OneBlackInZero = {MakeGeneration [0]} {StartTesting 'Rule30'} {PrintGenerations OneBlackInZero {Rule 30} 37} {StartTesting 'Rule110'} {{PrintGenerationsMaker ~75 1} OneBlackInZero {Rule 110} 75} for N in 0 .. 255 do {StartTesting 'Rule'#N} {PrintGenerations OneBlackInZero {Rule N} 30} end {StartTesting done}