Mercurial > repos > icfp2014
changeset 16:89aa6d3165ee
Test a few cases of get:fromTree:size
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 25 Jul 2014 21:16:25 -0700 |
parents | 4bc308c03952 |
children | c33dce59ce3d |
files | code/mike00.lm |
diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/code/mike00.lm Fri Jul 25 21:06:22 2014 -0700 +++ b/code/mike00.lm Fri Jul 25 21:16:25 2014 -0700 @@ -89,8 +89,12 @@ print: (length: lst) print: (map: lst :el { el + 1 }) print: (split: lst at: (length: lst) / 2) - tree <- makeTree: lst (length: lst) + size <- (length: lst) + tree <- makeTree: lst size print: tree + print: (get: 0 fromTree: tree size: size) + print: (get: 6 fromTree: tree size: size) + print: (get: 8 fromTree: tree size: size) } } \ No newline at end of file