Mercurial > repos > icfp2012
comparison src/sim.tp @ 24:8435bf0360f8
merge
author | William Morgan <bill@mrgn.org> |
---|---|
date | Sat, 14 Jul 2012 14:38:50 -0700 |
parents | 75a005b210c5 be6d1cf7b7d7 |
children | a224dc43877f |
comparison
equal
deleted
inserted
replaced
23:75a005b210c5 | 24:8435bf0360f8 |
---|---|
194 myStep <- myStep + 1 | 194 myStep <- myStep + 1 |
195 if: myStep > 5 {"A"} else: {"W"} | 195 if: myStep > 5 {"A"} else: {"W"} |
196 } | 196 } |
197 } | 197 } |
198 | 198 |
199 readFile <- :path { | 199 readFd <- :fd { |
200 fd <- os open: path (os O_RDONLY) | |
201 if: fd < 0 { "" } else: { | 200 if: fd < 0 { "" } else: { |
202 cur <- "" | 201 cur <- "" |
203 part <- "" | 202 part <- "" |
204 while: { | 203 while: { |
205 part <- os read: fd 128 | 204 part <- os read: fd 128 |
206 part != "" | 205 part != "" |
207 } do: { | 206 } do: { |
208 cur <- cur . part | 207 cur <- cur . part |
209 } | 208 } |
210 os close: fd | |
211 cur | 209 cur |
212 } | 210 } |
211 } | |
212 | |
213 readFile <- :path { | |
214 fd <- os open: path (os O_RDONLY) | |
215 out <- readFd: fd | |
216 os close: fd | |
217 out | |
213 } | 218 } |
214 | 219 |
215 getMove <- { | 220 getMove <- { |
216 os read: 0 1 | 221 os read: 0 1 |
217 } | 222 } |