repos/icfp2014: code/dotScanner.lm comparison

comparison code/dotScanner.lm @ 26:4f7a421e77c6

Tag teaming the continuation function

author	William Morgan <billjunk@mrgn.org>
date	Fri, 25 Jul 2014 23:19:29 -0700
parents	ec0b74f4f2d9
children	75c97fb80602

comparison

equal deleted inserted replaced

-:ec0b74f4f2d9
+:4f7a421e77c6
 	}
 	tree:set:to <- :tree :idx :val {
 		tree: tree update: idx with: :el { val }
 	}
+	grid:get <- :grid :pos {
+		x <- pos value
+		y <- pos tail
+		get: x fromTree: (get: y fromTree: grid)
+	}
 	grid:update:with <- :grid :pos :fun {
 		x <- pos value
 		y <- pos tail
 		tree: grid update: y with: :row {
 			tree: row update: x with: fun
 		}
 	}
 	grid:set:to <- :grid :pos :val {
-		grid: grid update: pox with: :el { val }
+		grid: grid update: pos with: :el { val }
+	}
+	grid:inBounds? <- :grid :pos {
+		x <- pos value
+		y <- pos tail
+		maxY <- grid value
+		maxX <- (get: 0 fromTree: grid) value
+		((x >= 0) + (y >= 0) + (x < maxX) + (y < maxY)) > 0
 	}
 /*
 	ListGet <- :cell idx {
 		if: idx = 0 {cell value} else: {
 		ListGet
 		...
 	}
 */
-	grid <- tree: ...
+	visited <- 0
-	visited <- tree: ...
+	/*
 	advancer <- :listOfTupsLams {
 		notdone <- 1
 		while: { notdone } do: {
 			listOfLamTups <- fold: listOfLamTups [] with: :acc el{
 				ret <- 0
 					ret <- [(el tail)]
 				}
 			}
 		}
-		//splitter: target start
+	}
-	}
+	*/
-	splitter <- :target start{
+	calcPos <- :move from {
+		x <- from value
+		y <- from tail
+		if: move {
+			if: move = 1 {
+				x <- x + 1
+			} else: {
+				if: move = 2 {
+					y <- y + 1
+				} else: {
+					x <- x - 1
+				}
+			}
+		} else: {
+			y <- y - 1
+		}
+		#[x y]
+	}
+	makeContClos <- :grid myLoc path {
+		{
+			ret <- []
+			move <- 0
+			atpos <- 0
+			if: (grid: grid inBounds?: myLoc) {
+				if: (grid: visited get: myLoc) {
+				} else: {
+					atpos <- grid: grid get: myLoc
+					if: (atpos = 2) + (atpos = 3) + (atpos = 4) {
+						ret <- #[1 (reverse: path)]
+					} else: {
+						visited <- grid: visited set: myLoc to: 1
+						if: atpos {
+							move <- 0
+							while: { move < 4 } do: {
+								ret <- (makeContClos: grid (calcPos: move myLoc) move | path) | ret
+							}
+							ret <- #[0 ret]
+						} else: {}
+					}
+				}
+			} else: {}
+			ret
+		}
 	}
 	//scanFor <- :target visited {
 	//}
 	counterLoad <- 4
 		lmState <- (world value) tail
 		myLoc <- (lmState tail) value
 		visited <- treeMap: grid :el { 0 }
-		visited <- tree: visited set: myLoc to: 1
+		/*
+		cont <- {
+			if: (grid: grid get: myLoc
+			visited <- tree: visited set: myLoc to: 1
+		*/
 		//myPos <-
 		path <- [3 1 3 1] //scanFor: 2 3 [myPos]

Mercurial > repos > icfp2014

comparison code/dotScanner.lm @ 26:4f7a421e77c6