Mercurial > repos > icfp2014
diff code/grid.lm @ 59:d087d0b28039
added getter with a default.
| author | William Morgan <billjunk@mrgn.org> |
|---|---|
| date | Sun, 27 Jul 2014 21:36:51 -0700 |
| parents | 57a4bddadd46 |
| children | 0eff4790249f |
line wrap: on
line diff
--- a/code/grid.lm Sun Jul 27 16:52:36 2014 -0700 +++ b/code/grid.lm Sun Jul 27 21:36:51 2014 -0700 @@ -51,6 +51,14 @@ ((x >= 0) + (y >= 0) + (x < maxX) + (y < maxY)) > 0 } + grid:get:withDefault <- :grid pos default { + if: (grid: grid inbounds?: pos) { + grid: grid get: pos + } else: { + default + } + } + calcPos <- :move from { x <- from value y <- from tail