Mercurial > repos > icfp2014

annotate code/mike00.lm @ 19:84f595cff062

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tree:set:to function
author Michael Pavone <pavone@retrodev.com>
date Fri, 25 Jul 2014 22:09:54 -0700
parents 8ff2349f36c6
children 5a36fda13a47
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
1 #{
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
2 length <- :lst {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
3 len <- []
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
4 while: { not: (lst isInteger?)} do: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
5 lst <- lst tail
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
6 len <- len + 1
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
7 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
8 len
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
9 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
10
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
11 reverse <- :lst {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
12 new <- []
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
13 while: { not: (lst isInteger?)} do: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
14 new <- (lst value) | new
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
15 lst <- lst tail
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
16 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
17 new
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
18 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
19
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
20 split:at <- :lst :pos {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
21 first <- []
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
22 i <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
23 while: { i < pos } do: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
24 first <- (lst value) | first
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
25 lst <- lst tail
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
26 i <- i + 1
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
27 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
28 #[(reverse: first) lst]
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
29 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
30
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
31 map <- :lst fun {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
32 new <- []
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
33 while: { not: (lst isInteger?) } do: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
34 new <- (fun: (lst value)) | new
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
35 lst <- lst tail
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
36 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
37 reverse: new
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
38 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
39
17
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
40 makeTree:size <- :lst :size {
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
41 ret <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
42 sub <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
43 half <- size / 2
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
44 if: size = 2 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
45 ret <- #[(lst value) ((lst tail) value)]
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
46 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
47 if: size = 1 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
48 ret <- lst
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
49 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
50 sub <- split: lst at: half
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
51 ret <- #[
17
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
52 (makeTree: (sub value) size: half)
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
53 (makeTree: (sub tail) size: size-half)
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
54 ]
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
55 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
56 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
57 ret
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
58 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
59
17
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
60 makeTree <- :lst {
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
61 size <- lst length
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
62 #[size (makeTree: lst size: size)]
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
63 }
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
64
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
65 get:fromTree:size <- :idx :tree :size {
17
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
66 print: #[1 tree size]
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
67 ret <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
68 half <- size / 2
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
69 if: size <= 2 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
70 if: idx = 0 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
71 ret <- tree value
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
72 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
73 ret <- tree tail
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
74 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
75 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
76 if: idx < half {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
77 ret <- get: idx fromTree: (tree value) size: half
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
78 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
79 ret <- get: idx-half fromTree: (tree tail) size: size-half
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
80 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
81 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
82 ret
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
83 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
84
17
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
85 get:fromTree <- :idx :tree {
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
86 size <- tree value
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
87 print: #[0 size]
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
88 get: idx fromTree: (tree tail) size: size
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
89 }
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
90
18
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
91 treeMap:size <- :tree fun :size {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
92 ret <- 0
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
93 half <- size / 2
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
94 if: size = 2 {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
95 ret <- #[(fun: (tree value)) (fun: (tree tail))]
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
96 } else: {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
97 if: size = 1 {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
98 ret <- #[(fun: (tree value)) 0]
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
99 } else: {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
100 ret <- #[
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
101 (treeMap: (tree value) fun size: half)
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
102 (treeMap: (tree tail) fun size: size-half)
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
103 ]
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
104 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
105 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
106 ret
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
107 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
108
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
109 treeMap <- :tree fun {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
110 #[(tree value) (treeMap: (tree tail) fun size: (tree value))]
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
111 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
112
19
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
113 tree:size:set:to <- :tree :size :idx :val {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
114 ret <- 0
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
115 half <- size / 2
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
116 if: size = 2 {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
117 if: idx = 0 {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
118 ret <- #[val (tree tail)]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
119 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
120 ret <- #[(tree value) val]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
121 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
122 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
123 if: size = 1 {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
124 ret <- #[val 0]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
125 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
126 if: (idx < half) {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
127 ret <- #[
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
128 (tree: (tree value) size: half set: idx to: val)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
129 (tree tail)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
130 ]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
131 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
132 ret <- #[
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
133 (tree value)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
134 (tree: (tree tail) size: size-half set: idx-half to: val)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
135 ]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
136 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
137 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
138 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
139 ret
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
140 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
141
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
142 tree:set:to <- :tree :idx :val {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
143 #[(tree value) (tree: (tree tail) size: (tree value) set: idx to: val)]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
144 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
145
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
146 height <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
147 width <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
148
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
149 main <- {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
150 /* map <- initWorld value
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
151 height <- map length
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
152 width <- (map value) length
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
153 */
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
154
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
155 lst <- [1 2 3 4 5 6 7 8 9]
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
156 print: (length: lst)
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
157 print: (map: lst :el { el + 1 })
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
158 print: (split: lst at: (length: lst) / 2)
17
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
159 tree <- makeTree: lst
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
160 print: tree
17
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
161 print: (get: 0 fromTree: tree)
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
162 print: (get: 6 fromTree: tree)
c33dce59ce3d Store tree size in outer node so it does not need to be manually passed in
Michael Pavone <pavone@retrodev.com>
parents: 16
diff changeset
163 print: (get: 8 fromTree: tree)
18
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
164 print: (treeMap: tree :el { el + 1 })
19
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
165 print: (tree: tree set: 0 to: 42)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
166 print: (tree: tree set: 6 to: 42)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
167 print: (tree: tree set: 8 to: 42)
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
168 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
169
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
170 }