Mercurial > repo

comparison interps/c-intercal/pit/life.i @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
comparison
equal deleted inserted replaced
995:6883f5911eb7 996:859f9b4339e6
1
2 PLEASE NOTE BEGINNING OF BEGINNING
3 DO WRITE IN .11
4 DO WRITE IN .12
5 DO ,1 <- .11 BY .12
6 DO ,2 <- .11 BY .12
7 DO WRITE IN .13
8 DO .14 <- #0
9
10 PLEASE NOTE INITIALIZING ,1 TO ZEROES
11 DO .2 <- .11
12 DO .1 <- .12
13 DO (110) NEXT
14 (110) PLEASE FORGET #1
15 DO ,1 SUB .2.1 <- #0
16 DO (111) NEXT
17 (112) DO (2010) NEXT
18 PLEASE FORGET #2
19 DO (110) NEXT
20 (111) DO (112) NEXT
21 DO (113) NEXT
22 (114) DO .1 <- .2
23 DO (2010) NEXT
24 PLEASE FORGET #3
25 DO .2 <- .1
26 DO .1 <- .12
27 DO (110) NEXT
28 (113) DO (114) NEXT
29 PLEASE FORGET #2
30
31 PLEASE NOTE INITIAL POSITION INPUT
32 DO (120) NEXT
33 (120) PLEASE FORGET #1
34 DO WRITE IN .1
35 DO (121) NEXT
36 DO WRITE IN .2
37 DO ,1 SUB .1.2 <- #1
38 DO (120) NEXT
39 (122) DO RESUME "?!1~.1'$#1"~#3
40 (121) DO (122) NEXT
41 PLEASE FORGET #1
42
43 PLEASE NOTE END OF BEGINNING, BEGINNING OF MIDDLE
44 DO (200) NEXT
45 (200) DO FORGET #1
46
47 PLEASE NOTE PUTTING NEXT POSITION IN ,2
48 DO .1 <- .11
49 DO .9 <- .1
50 DO (2000) NEXT
51 DO .7 <- .1
52 DO (2000) NEXT
53 DO .5 <- .1
54 DO .1 <- .12
55 DO .10 <- .1
56 DO (2000) NEXT
57 DO .8 <- .1
58 DO (2000) NEXT
59 DO .6 <- .1
60 DO (210) NEXT
61 (210) PLEASE FORGET #1
62
63 DO .1 <- #0
64 DO .2 <- ,1 SUB .5.6
65 DO (2020) NEXT
66 DO .2 <- ,1 SUB .5.8
67 DO (2020) NEXT
68 DO .2 <- ,1 SUB .5.10
69 DO (2020) NEXT
70 DO .2 <- ,1 SUB .7.6
71 DO (2020) NEXT
72 DO .2 <- ,1 SUB .7.10
73 DO (2020) NEXT
74 DO .2 <- ,1 SUB .9.6
75 DO (2020) NEXT
76 DO .2 <- ,1 SUB .9.8
77 DO (2020) NEXT
78 DO .2 <- ,1 SUB .9.10
79 DO (2020) NEXT
80 DO :2 <- #0$#65535
81 DO .1 <- "?'"V.1$,1SUB.7.8"~:2'$#3"~:2
82 DO ,2 SUB .7.8 <- "?!1~.1'$#1"~#1
83
84 DO (211) NEXT
85 (212) DO .10 <- .8
86 DO .8 <- .6
87 DO .1 <- .6
88 DO (2010) NEXT
89 PLEASE FORGET #2
90 DO .6 <- .1
91 DO (210) NEXT
92 (211) DO (212) NEXT
93 DO (213) NEXT
94 (214) DO .9 <- .7
95 DO .7 <- .5
96 DO .1 <- .5
97 DO (2010) NEXT
98 PLEASE FORGET #3
99 DO .5 <- .1
100 DO .1 <- .12
101 DO .10 <- .1
102 DO (2000) NEXT
103 DO .8 <- .1
104 DO (2000) NEXT
105 DO .6 <- .1
106 DO (210) NEXT
107 (213) DO (214) NEXT
108 PLEASE FORGET #2
109
110 PLEASE NOTE COPYING ,2 BACK INTO ,1
111 DO .1 <- .11
112 DO (2000) NEXT
113 DO .2 <- .1
114 DO .1 <- .12
115 DO (2000) NEXT
116 DO (220) NEXT
117 (220) PLEASE FORGET #1
118 DO ,1 SUB .2.1 <- ,2 SUB .2.1
119 DO (221) NEXT
120 DO (220) NEXT
121 (222) DO (2000) NEXT
122 DO .3 <- "?.1$#1"~"#0$#65535"
123 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
124 (221) DO (222) NEXT
125 PLEASE FORGET #1
126 DO (223) NEXT
127 DO .2 <- .1
128 DO .1 <- .12
129 DO (2000) NEXT
130 DO (220) NEXT
131 (224) DO .1 <- .2
132 DO (2000) NEXT
133 DO .3 <- "?.1$#1"~"#0$#65535"
134 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
135 (223) DO (224) NEXT
136 PLEASE FORGET #1
137
138 PLEASE NOTE INCREMENT TIMESTEP AND TEST
139 DO .1 <- .14
140 DO (1020) NEXT
141 DO .14 <- .1
142 DO (231) NEXT
143 DO (299) NEXT
144 (232) DO .3 <- "?.14$.13"~"#0$#65535"
145 PLEASE RESUME '?"!3~.3'~#1"$#2'~#3
146 (231) DO (232) NEXT
147 DO FORGET #1
148
149 PLEASE NOTE OVERFLOW TESTING
150 DO .1 <- .11
151 DO (2000) NEXT
152 DO .5 <- .1
153 DO .1 <- .12
154 DO (2000) NEXT
155 DO .6 <- .1
156 DO .7 <- #0
157 DO .8 <- #0
158 DO (240) NEXT
159 (240) PLEASE FORGET #1
160 DO .2 <- ,1 SUB #2.6
161 DO .1 <- .7
162 DO (500) NEXT
163 DO .7 <- .1
164 DO .2 <- ,1 SUB .5.6
165 DO .1 <- .8
166 DO (500) NEXT
167 DO .8 <- .1
168 DO (241) NEXT
169 DO .6 <- .1
170 DO (240) NEXT
171 (242) DO .1 <- .6
172 DO (2000) NEXT
173 DO .3 <- "?.1$#1"~"#0$#65535"
174 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
175 (241) DO (242) NEXT
176 PLEASE FORGET #1
177
178 DO .1 <- .11
179 DO (2000) NEXT
180 DO .5 <- .1
181 DO .1 <- .12
182 DO (2000) NEXT
183 DO .6 <- .1
184 DO .7 <- #0
185 DO .8 <- #0
186 DO (250) NEXT
187 (250) PLEASE FORGET #1
188 DO .2 <- ,1 SUB .5#2
189 DO .1 <- .7
190 DO (500) NEXT
191 DO .7 <- .1
192 DO .2 <- ,1 SUB .5.6
193 DO .1 <- .8
194 DO (500) NEXT
195 DO .8 <- .1
196 DO (251) NEXT
197 DO .5 <- .1
198 DO (250) NEXT
199 (252) DO .1 <- .5
200 DO (2000) NEXT
201 DO .3 <- "?.1$#1"~"#0$#65535"
202 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
203 (251) DO (252) NEXT
204 PLEASE FORGET #1
205
206 DO (200) NEXT
207
208 (299) DO FORGET #1
209 PLEASE NOTE END OF MIDDLE, BEGINNING OF END
210
211 PLEASE NOTE FINAL POSITION OUTPUT
212 DO .2 <- .11
213 DO .1 <- .12
214 DO (310) NEXT
215 (310) PLEASE FORGET #1
216 DO (321) NEXT
217 DO READ OUT .2
218 DO READ OUT .1
219 DO (323) NEXT
220 (322) PLEASE RESUME "?',1 SUB .2.1'$#1"~#3
221 (321) DO (322) NEXT
222 (323) PLEASE FORGET #1
223 DO (311) NEXT
224 (312) DO (2010) NEXT
225 PLEASE FORGET #2
226 DO (310) NEXT
227 (311) DO (312) NEXT
228 DO (313) NEXT
229 (314) DO .1 <- .2
230 DO (2010) NEXT
231 PLEASE FORGET #3
232 DO .2 <- .1
233 DO .1 <- .12
234 DO (310) NEXT
235 (313) DO (314) NEXT
236 PLEASE FORGET #2
237
238 DO READ OUT .14
239
240 PLEASE NOTE END OF END
241 PLEASE GIVE UP
242
243
244 (500) DO (501) NEXT
245 DO .1 <- #0
246 PLEASE RESUME #1
247 (502) PLEASE RESUME '?.2$#2'~#3
248 (501) DO (502) NEXT
249 DO (2020) NEXT
250 DO (503) NEXT
251 PLEASE RESUME #2
252 (504) DO .2 <- "?.1$#3"~"#0$#65535"
253 PLEASE RESUME '?"!2~.2'~#1"$#1'~#3
254 (503) DO (504) NEXT
255 PLEASE FORGET #3
256 DO (299) NEXT
257
258 (2010) PLEASE ABSTAIN FROM (2004)
259 (2000) PLEASE STASH .2
260 DO .2 <- #1
261 DO (2001) NEXT
262 (2001) PLEASE FORGET #1
263 DO .1 <- '?.1$.2'~'#0$#65535'
264 DO (2002) NEXT
265 DO .2 <- !2$#0'~'#32767$#1'
266 DO (2001) NEXT
267 (2003) PLEASE RESUME "?!1~.2'$#1"~#3
268 (2002) DO (2003) NEXT
269 PLEASE RETRIEVE .2
270 (2004) PLEASE RESUME #2
271 PLEASE DO REINSTATE (2004)
272 PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
273
274 (2020) PLEASE STASH .2 + .3
275 DO (1021) NEXT
276