Mercurial > repos > icfp2013
changeset 57:27ee5051b1ec
Merge
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 11 Aug 2013 14:12:01 -0700 |
parents | f864792a1b17 (current diff) 42930b0904b1 (diff) |
children | c50f0fb9a717 |
files | src/bv.tp |
diffstat | 1 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/bv.tp Sun Aug 11 14:11:47 2013 -0700 +++ b/src/bv.tp Sun Aug 11 14:12:01 2013 -0700 @@ -567,6 +567,18 @@ allOfSize: (size - 1) inFold?: 0 withOps: ops needOps: ops } + allWithMaxSize <- :size { + res <- #[] + n <- 3 + while: {n <= size} do: { + foreach: (allOfSize: n) :idx el{ + res append: el + } + n <- n + 1 + } + res + } + filterTrees <- :trees strops { ops <- strops fold: 0 with: :acc el { acc or (_names get: el withDefault: 0) @@ -634,7 +646,7 @@ trees <- (prog allOfSize: size) } foreach: trees :idx tree { - prog root! tree + prog root!: tree test: prog } } @@ -642,3 +654,4 @@ } } } +