Mercurial > repos > icfp2014
changeset 32:934d03d42a7e
Debug junk removed
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 26 Jul 2014 01:02:41 -0700 |
parents | 3812bf35168d |
children | c68c03a0e072 968705fcb4c6 |
files | code/dotScanner.lm |
diffstat | 1 files changed, 0 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/code/dotScanner.lm Sat Jul 26 00:58:50 2014 -0700 +++ b/code/dotScanner.lm Sat Jul 26 01:02:41 2014 -0700 @@ -207,32 +207,25 @@ 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 @@ -282,7 +275,6 @@ } } else: { } - print: #[10 myLoc ret] ret } } @@ -295,9 +287,7 @@ visited <- treeMap: grid :row { treeMap: row :el { 0 } } - print: #[5 myLoc] path <- advancer: [(makeContClos: grid myLoc [])] - print: path #[0 (path value)] }