Mercurial > repos > icfp2012
diff src/sim.tp @ 67:ff8d7b4499f5 default tip
Submission prep
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 16 Jul 2012 04:48:50 -0700 |
parents | aa822c683e28 |
children |
line wrap: on
line diff
--- a/src/sim.tp Mon Jul 16 04:37:00 2012 -0700 +++ b/src/sim.tp Mon Jul 16 04:48:50 2012 -0700 @@ -401,6 +401,12 @@ } os write: 2 "\n" } + printMoves <- { + foreach: moves :idx m { + os write: 1 m + } + os write: 1 "\n" + } clone <- { cgrid <- #[] foreach: grid :idx el { @@ -517,8 +523,8 @@ } else: { verbose <- true text <- readFile: (args get: 1) - print: text - //os close: 1 + os write: 1 text + os close: 1 simState <- state fromStr: text while: { not: (simState ended: ) } do: { simState advance: (getMove: )