Mercurial > repos > icfp2012

comparison src/sim.tp @ 30:031d46ff76a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor clean up to use 'if' and 'not'
author William Morgan <bill@mrgn.org>
date Sat, 14 Jul 2012 20:34:40 -0700
parents d9f1a063a466
children f7a1daaec925
comparison
equal deleted inserted replaced
29:d9f1a063a466 30:031d46ff76a9
127 foreach: in_grid :index el{ 127 foreach: in_grid :index el{
128 nextGrid append: el 128 nextGrid append: el
129 if: (el isrobot) { 129 if: (el isrobot) {
130 robot <- el 130 robot <- el
131 ret updatePos: robot index 131 ret updatePos: robot index
132 } else: { true } 132 }
133 } 133 }
134 ret 134 ret
135 } 135 }
136 fromStr <- :str { 136 fromStr <- :str {
137 strLen <- str byte_length: 137 strLen <- str byte_length:
213 text <- readFile: (args get: 1) 213 text <- readFile: (args get: 1)
214 print: text 214 print: text
215 os close: 1 215 os close: 1
216 simState <- state fromStr: text 216 simState <- state fromStr: text
217 derp <- simState ended: 217 derp <- simState ended:
218 while: { if: (simState ended: ) {false} else: {true} } do: { 218 while: { not: (simState ended: ) } do: {
219 simState advance: (getMove: ) 219 simState advance: (getMove: )
220 if: verbose { 220 if: verbose {
221 simState printGrid 221 simState printGrid
222 } 222 }
223 } 223 }