Mercurial > repos > icfp2012
view src/lifter.tp @ 37:2dc785f67327
Use new tpc shell script so that errors are displayed on the console
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 15 Jul 2012 13:06:58 -0700 |
parents | f7a1daaec925 |
children | 9bccdb3ac979 |
line wrap: on
line source
#{ abs <- :val { if: val < 0 { 0 - val } else: { val } } distanceFrom:to <- :sx sy :dx dy { (abs: sx - dx) + (abs: sy - dy) } main <- { text <- sim readFd: 0 playfield <- (sim state) fromStr: text os write: 2 text os write: 2 "width: " . (string: (playfield width)) . "\n" os write: 2 "height: " . (string: (playfield height)) . "\n" } }