Mercurial > repos > icfp2014

annotate code/mike00.lm @ 20:5a36fda13a47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added fold:with function
author Michael Pavone <pavone@retrodev.com>
date Fri, 25 Jul 2014 22:13:17 -0700
parents 84f595cff062
children 5a27dd6f03cd
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
20
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
40 fold:with <- :lst acc :fun {
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
41 while: { not: (lst isInteger?) } do: {
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
42 acc <- fun: acc (lst value)
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
43 lst <- lst tail
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
44 }
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
45 acc
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
46 }
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
47
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
48 makeTree:size <- :lst :size {
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
49 ret <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
50 sub <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
51 half <- size / 2
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
52 if: size = 2 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
53 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
54 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
55 if: size = 1 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
56 ret <- lst
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
57 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
58 sub <- split: lst at: half
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
59 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
60 (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
61 (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
62 ]
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
63 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
64 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
65 ret
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
66 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
67
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
68 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
69 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
70 #[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
71 }
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
72
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
73 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
74 print: #[1 tree size]
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
75 ret <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
76 half <- size / 2
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
77 if: size <= 2 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
78 if: idx = 0 {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
79 ret <- tree value
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
80 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
81 ret <- tree tail
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
82 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
83 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
84 if: idx < half {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
85 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
86 } else: {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
87 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
88 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
89 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
90 ret
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
91 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
92
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
93 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
94 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
95 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
96 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
97 }
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
98
18
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
99 treeMap:size <- :tree fun :size {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
100 ret <- 0
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
101 half <- size / 2
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
102 if: size = 2 {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
103 ret <- #[(fun: (tree value)) (fun: (tree tail))]
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
104 } else: {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
105 if: size = 1 {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
106 ret <- #[(fun: (tree value)) 0]
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
107 } else: {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
108 ret <- #[
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
109 (treeMap: (tree value) fun size: half)
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
110 (treeMap: (tree tail) fun size: size-half)
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 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
113 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
114 ret
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
115 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
116
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
117 treeMap <- :tree fun {
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
118 #[(tree value) (treeMap: (tree tail) fun size: (tree value))]
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
119 }
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
120
19
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
121 tree:size:set:to <- :tree :size :idx :val {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
122 ret <- 0
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
123 half <- size / 2
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
124 if: size = 2 {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
125 if: idx = 0 {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
126 ret <- #[val (tree tail)]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
127 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
128 ret <- #[(tree value) val]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
129 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
130 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
131 if: size = 1 {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
132 ret <- #[val 0]
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
133 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
134 if: (idx < half) {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
135 ret <- #[
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
136 (tree: (tree value) size: half set: idx to: val)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
137 (tree tail)
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 } else: {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
140 ret <- #[
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
141 (tree value)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
142 (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
143 ]
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 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
146 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
147 ret
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
148 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
149
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
150 tree:set:to <- :tree :idx :val {
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
151 #[(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
152 }
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
153
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
154 height <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
155 width <- 0
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
156
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
157 main <- {
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
158 /* map <- initWorld value
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
159 height <- map length
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
160 width <- (map value) length
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
161 */
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
162
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
163 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
164 print: (length: lst)
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
165 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
166 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
167 tree <- makeTree: lst
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
168 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
169 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
170 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
171 print: (get: 8 fromTree: tree)
18
8ff2349f36c6 Wrote treeMap function
Michael Pavone <pavone@retrodev.com>
parents: 17
diff changeset
172 print: (treeMap: tree :el { el + 1 })
19
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
173 print: (tree: tree set: 0 to: 42)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
174 print: (tree: tree set: 6 to: 42)
84f595cff062 Added tree:set:to function
Michael Pavone <pavone@retrodev.com>
parents: 18
diff changeset
175 print: (tree: tree set: 8 to: 42)
20
5a36fda13a47 Added fold:with function
Michael Pavone <pavone@retrodev.com>
parents: 19
diff changeset
176 print: (fold: lst 0 with: :acc el { acc + el })
14
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
177 }
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
178
ce68c8a607ee Added a new file for experimenting with some helper functions
Michael Pavone <pavone@retrodev.com>
parents:
diff changeset
179 }