Mercurial > repo

comparison interps/c-intercal/pit/bubble.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 DO WRITE IN .2
3 DO ,1 <- .2
4
5 PLEASE NOTE INITIAL SEQUENCE INPUT
6 DO .1 <- .2
7 DO (110) NEXT
8 (110) DO FORGET #1
9 DO WRITE IN ,1 SUB .1
10 DO (111) NEXT
11 (112) DO (2010) NEXT
12 DO FORGET #2
13 DO (110) NEXT
14 (111) DO (112) NEXT
15 DO FORGET #1
16
17 PLEASE NOTE CALLING SORT ROUTINE INDIRECTLY
18 DO .1 <- .2
19 DO (500) NEXT
20
21 PLEASE NOTE SORTED SEQUENCE OUTPUT
22 DO .1 <- .2
23 DO (210) NEXT
24 (210) DO FORGET #1
25 DO READ OUT ,1 SUB .1
26 DO (211) NEXT
27 (212) DO (2010) NEXT
28 DO FORGET #2
29 DO (210) NEXT
30 (211) DO (212) NEXT
31 DO FORGET #1
32
33 PLEASE GIVE UP
34
35 PLEASE NOTE COMPARE AND EXCHANGE ROUTINE
36 (500) PLEASE ABSTAIN FROM (502)
37 DO (3000) NEXT
38 DO (501) NEXT
39 (501) DO FORGET #1
40 (502) DO (3010) NEXT
41 PLEASE REINSTATE (502)
42 DO .3 <- '?",1SUB.1"$,1SUB.2'~'#0$#65535'
43 DO .3 <- '?"'& "'",1SUB.1"~.3'~'"?'?.3~.3'$#32768"~"#0$#65535"'" $
44 ".3~.3"'~#1" $
45 #1'~#3
46 DO (503) NEXT
47 DO .3 <- ,1 SUB .1
48 DO ,1 SUB .1 <- ,1 SUB .2
49 DO ,1 SUB .2 <- .3
50 DO (501) NEXT
51 (504) PLEASE RESUME .3
52 (503) DO (504) NEXT
53 DO FORGET #1
54 DO (501) NEXT
55
56
57 PLEASE NOTE BUBBLE SORT ROUTINE
58 PLEASE NOTE THAT EXCHANGE ROUTINE SHOULD NOT CHANGE .1 OR .2
59 (3000) PLEASE STASH .1 + .2
60 DO .2 <- .1
61 DO (2000) NEXT
62 DO (3001) NEXT
63 (3001) DO FORGET #1
64 DO RESUME #1
65 (3011) DO (2010) NEXT
66 DO FORGET #1
67 DO (3001) NEXT
68 (3010) DO (3011) NEXT
69 DO (3012) NEXT
70 (3013) DO .1 <- .2
71 DO (2010) NEXT
72 DO FORGET #2
73 DO .2 <- .1
74 DO (3010) NEXT
75 DO RESUME #1
76 (3012) DO (3013) NEXT
77 PLEASE RETRIEVE .1 + .2
78 DO RESUME #4
79
80 (2010) PLEASE ABSTAIN FROM (2004)
81 (2000) PLEASE STASH .2
82 DO .2 <- #1
83 DO (2001) NEXT
84 (2001) DO FORGET #1
85 DO .1 <- '?.1$.2'~'#0$#65535'
86 DO (2002) NEXT
87 DO .2 <- !2$#0'~'#32767$#1'
88 DO (2001) NEXT
89 (2003) PLEASE RESUME "?!1~.2'$#1"~#3
90 (2002) DO (2003) NEXT
91 PLEASE RETRIEVE .2
92 (2004) PLEASE RESUME #2
93 PLEASE DO REINSTATE (2004)
94 PLEASE RESUME '?"!1~.1'~#1"$#2'~#6