repos/icfp2014: code/dotScanner.lm comparison

Debug junk removed

author	Michael Pavone <pavone@retrodev.com>
date	Sat, 26 Jul 2014 01:02:41 -0700
parents	3812bf35168d
children	968705fcb4c6

comparison

equal deleted inserted replaced

-:3812bf35168d
+:934d03d42a7e
 		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