Mercurial > repos > icfp2012

comparison src/sim.tp @ 21:be6d1cf7b7d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 12:33:11 -0700
parents 50a456168c25 998ef2173f28
children 8435bf0360f8
comparison
equal deleted inserted replaced
20:50a456168c25 21:be6d1cf7b7d7
199 if: (args length) < 2 { 199 if: (args length) < 2 {
200 print: "usage: sim filename\n" 200 print: "usage: sim filename\n"
201 } else: { 201 } else: {
202 text <- readFile: (args get: 1) 202 text <- readFile: (args get: 1)
203 print: text 203 print: text
204 os close: 1
204 simState <- state fromStr: text 205 simState <- state fromStr: text
205 while: { if: (simState ended) {false} else: {true} } do: { 206 while: { if: (simState ended) {false} else: {true} } do: {
206 simState advance: (getMove: ) 207 simState advance: (getMove: )
207 } 208 }
208 } 209 }