Mercurial > repos > icfp2014
changeset 24:37158acf31e5
Initial pass at scan loop
author | William Morgan <billjunk@mrgn.org> |
---|---|
date | Fri, 25 Jul 2014 22:52:05 -0700 |
parents | 4bc308c03952 |
children | ec0b74f4f2d9 |
files | code/dotScanner.lm |
diffstat | 1 files changed, 35 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/code/dotScanner.lm Fri Jul 25 21:06:22 2014 -0700 +++ b/code/dotScanner.lm Fri Jul 25 22:52:05 2014 -0700 @@ -18,7 +18,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 {