Mercurial > repos > icfp2014
changeset 25:ec0b74f4f2d9
Merge
author | William Morgan <billjunk@mrgn.org> |
---|---|
date | Fri, 25 Jul 2014 22:52:52 -0700 |
parents | 37158acf31e5 (diff) 5ded24518dc5 (current diff) |
children | 4f7a421e77c6 |
files | code/dotScanner.lm |
diffstat | 1 files changed, 35 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/code/dotScanner.lm Fri Jul 25 22:37:53 2014 -0700 +++ b/code/dotScanner.lm Fri Jul 25 22:52:52 2014 -0700 @@ -197,7 +197,41 @@ ... } */ - //scanFor <- :target depth visited{ + + grid <- tree: ... + visited <- tree: ... + + advancer <- :listOfTupsLams { + notdone <- 1 + while: { notdone } do: { + listOfLamTups <- fold: listOfLamTups [] with: :acc el{ + ret <- 0 + newTupLams <- (el tail): + + + // zero means "I have not found it" + + if: (el value) = 0 { + newTupLams <- (el tail): + if: (isInteger?: newTupLams) { + ret <- acc + } else: { + ret <- acc | newTupLams + } + } else: { + notdone <- 0 + ret <- [(el tail)] + } + } + } + + //splitter: target start + } + splitter <- :target start{ + + } + + //scanFor <- :target visited { //} counterLoad <- 4 step <- :myState world {