Mercurial > repos > icfp2012
comparison src/sim.tp @ 17:998ef2173f28
colse stdout file descriptor
author | William Morgan <bill@mrgn.org> |
---|---|
date | Sat, 14 Jul 2012 11:08:17 -0700 |
parents | 26cfb964fe81 |
children | be6d1cf7b7d7 75a005b210c5 |
comparison
equal
deleted
inserted
replaced
14:26cfb964fe81 | 17:998ef2173f28 |
---|---|
194 if: (args length) < 2 { | 194 if: (args length) < 2 { |
195 print: "usage: sim filename\n" | 195 print: "usage: sim filename\n" |
196 } else: { | 196 } else: { |
197 text <- readFile: (args get: 1) | 197 text <- readFile: (args get: 1) |
198 print: text | 198 print: text |
199 os close: 1 | |
199 simState <- state fromStr: text | 200 simState <- state fromStr: text |
200 while: { if: (simState ended) {false} else: {true} } do: { | 201 while: { if: (simState ended) {false} else: {true} } do: { |
201 simState advance: (getMove: ) | 202 simState advance: (getMove: ) |
202 } | 203 } |
203 } | 204 } |