Mercurial > repos > icfp2014

diff code/grid.lm @ 50:57a4bddadd46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added new helper functions to grids. more bugfixes to gameState.lm which compiles.
author William Morgan <billjunk@mrgn.org>
date Sun, 27 Jul 2014 13:49:45 -0700
parents d631e68a45d5
children d087d0b28039
line wrap: on
line diff
--- a/code/grid.lm	Sun Jul 27 02:35:24 2014 -0700
+++ b/code/grid.lm	Sun Jul 27 13:49:45 2014 -0700
@@ -39,11 +39,15 @@
 		grid: grid update: pos with: :el { val }
 	}
 
+	gridMaxY <- :grid {grid value}
+	gridMaxX <- :grid {(get: 0 fromTree: grid) value}
+	gridArea <- :grid {(grid gridMaxX) * (grid gridMaxY)}
+
 	grid:inBounds? <- :grid :pos {
 		x <- pos value
 		y <- pos tail
-		maxY <- grid value
-		maxX <- (get: 0 fromTree: grid) value
+		maxY <- (grid gridMaxY)
+		maxX <- (grid gridMaxX)
 		((x >= 0) + (y >= 0) + (x < maxX) + (y < maxY)) > 0
 	}