Mercurial > repo
comparison interps/c-intercal/pit/life.i @ 996:859f9b4339e6
<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 |