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