Mercurial > repos > icfp2014
comparison code/mike00.lm @ 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 | ce68c8a607ee |
| children | c33dce59ce3d |
comparison
equal
deleted
inserted
replaced
| 15:4bc308c03952 | 16:89aa6d3165ee |
|---|---|
| 87 | 87 |
| 88 lst <- [1 2 3 4 5 6 7 8 9] | 88 lst <- [1 2 3 4 5 6 7 8 9] |
| 89 print: (length: lst) | 89 print: (length: lst) |
| 90 print: (map: lst :el { el + 1 }) | 90 print: (map: lst :el { el + 1 }) |
| 91 print: (split: lst at: (length: lst) / 2) | 91 print: (split: lst at: (length: lst) / 2) |
| 92 tree <- makeTree: lst (length: lst) | 92 size <- (length: lst) |
| 93 tree <- makeTree: lst size | |
| 93 print: tree | 94 print: tree |
| 95 print: (get: 0 fromTree: tree size: size) | |
| 96 print: (get: 6 fromTree: tree size: size) | |
| 97 print: (get: 8 fromTree: tree size: size) | |
| 94 } | 98 } |
| 95 | 99 |
| 96 } | 100 } |