Mercurial > repos > icfp2014

annotate code/mike00.lm @ 25:ec0b74f4f2d9

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