Mercurial > repo
comparison interps/c-intercal/pit/tests/count.3i @ 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 DO ,1 <- #16 | |
2 DO :2 <- #6490$#55022 | |
3 PLEASE DO (44) NEXT | |
4 DO :2 <- #5631$#54733 | |
5 PLEASE DO (44) NEXT | |
6 DO :2 <- #14637$#40039 | |
7 PLEASE DO (44) NEXT | |
8 DO :2 <- #58550$#53112 | |
9 PLEASE DO (44) NEXT | |
10 DO .1 <- #1 | |
11 PLEASE DO (99) NEXT | |
12 DO GIVE UP | |
13 (44) DO REINSTATE COMING FROM | |
14 (19) DO COME FROM (68) | |
15 DO ABSTAIN FROM (19) | |
16 (31) DO COME FROM (34) | |
17 DO ABSTAIN FROM (31) | |
18 (88) DO COME FROM (65) | |
19 PLEASE ABSTAIN FROM (88) | |
20 DO COME FROM (44) | |
21 PLEASE DO (123) NEXT | |
22 DO .3 <- ':2~"#4$#13"' | |
23 DO :2 <- ':2~"#29520$#29511"' | |
24 DO ,1 SUB .1 <- .3 | |
25 (65) DON'T GIVE UP | |
26 (34) PLEASE DON'T GIVE UP | |
27 (68) DO NOTE THAT THIS FUNNY CODE ACTUALLY WORKS | |
28 PLEASE RESUME #1 | |
29 (99) DO COME FROM (69) | |
30 DO READ OUT ,1 | |
31 DO ,1 SUB #1 <- #180 | |
32 DO READ OUT .1 | |
33 DO .2 <- "?.1$#10"~"#0$#29524" | |
34 PLEASE DO (15) NEXT | |
35 (69) PLEASE DO (123) NEXT | |
36 (42) DO RESUME .9 | |
37 (123) PLEASE .8 <- #1 | |
38 DO COME FROM (81) | |
39 DO .9 <- '?"V!1~.8'$#1"~#1'~#1 | |
40 DO .1 <- "^.1$.8"~"#0$#29524" | |
41 PLEASE DO (42) NEXT | |
42 (81) DO .8 <- !8$#0'~"#9841$#1" | |
43 (15) PLEASE RESUME '?"!2~.2'~#2"$#1'~#1 |