Mercurial > repos > icfp2014

changeset 16:89aa6d3165ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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