repos/icfp2014: code/dotScanner.lm comparison

Simple AI seems to work now. Lots of debug junk needs to be removed though

author	Michael Pavone <pavone@retrodev.com>
date	Sat, 26 Jul 2014 00:58:50 -0700
parents	3287eb6c25fe
children	934d03d42a7e

comparison

equal deleted inserted replaced

-:3287eb6c25fe
+:3812bf35168d
 		while: { notdone } do: {
 			if: (continuations isInteger?) {
 				notdone <- 0
 			} else: {
 				continuations <- fold: continuations [] with: :acc el{
+					print: #[20 acc]
 					ret <- acc
 					if: notdone {
 						ret <- el:
+						print: #[11 ret]
 						if: (ret isInteger?) {
+							ret <- acc
 						} else: {
 							if: (ret value) {
+								print: 12
 								notdone <- 0
 								ret <- (ret tail)
 							} else: {
+								print: 13
 								ret <- (ret tail) | acc
 							}
 						}
 					} else: {}
+					print: #[21 ret]
 					ret
 				}
+				print: #[15 continuations]
 				if: notdone {
 					continuations <- flatten: continuations
 				} else: {}
+				print: #[16 continuations]
 			}
 		}
 		continuations
 	}
 						} else: {}
 					}
 				}
 			} else: {
 			}
+			print: #[10 myLoc ret]
 			ret
 		}
 	}
 	step <- :myState world {
 		myLoc <- (lmState tail) value
 		visited <- treeMap: grid :row {
 			treeMap: row :el { 0 }
 		}
+		print: #[5 myLoc]
 		path <- advancer: [(makeContClos: grid myLoc [])]
+		print: path
 		#[0 (path value)]
 	}
 	main <- :initWorld ghostCode {
 		/*

Mercurial > repos > icfp2014