Mercurial > repos > icfp2012

diff src/lifter.tp @ 31:f7a1daaec925

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use dictionary
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 21:27:36 -0700
parents 7a274d6026c8
children 9bccdb3ac979
line wrap: on
line diff
--- a/src/lifter.tp	Sat Jul 14 20:34:40 2012 -0700
+++ b/src/lifter.tp	Sat Jul 14 21:27:36 2012 -0700
@@ -1,4 +1,12 @@
 #{
+	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