Mercurial > repo

comparison interps/c-intercal/pit/fft.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 PLEASE WRITE IN .9
2 DO .5 <- '?"'#65535~".9~#65532"'~#1"$#2'~#3
3 DO (91) NEXT
4 DO .5 <- '?.&9$#2'~#3
5 DO (91) NEXT
6 DO .5 <- '?"#3~.9"$#1'~#3
7 DO (91) NEXT
8 PLEASE WRITE IN .10
9 DO .5 <- '?"!10~.10'~#2"$#2'~#3
10 DO (93) NEXT
11 DO .5 <- '?"'#65535~".10~#65534"'~#1"$#1'~#3
12 DO (92) NEXT
13 PLEASE DO ;1 <- .10 BY #2
14 DO .1 <- #1
15 DO (10) NEXT
16 (11) DO (1001) NEXT
17 (10) PLEASE FORGET #1
18 PLEASE WRITE IN :1
19 DO (5090) NEXT
20 DO .5 <- '?".5~#2"$#2'~#3
21 DO (94) NEXT
22 PLEASE DO ;1SUB.1#1 <- :2
23 PLEASE WRITE IN :1
24 DO (5090) NEXT
25 DO .5 <- '?".5~#2"$#2'~#3
26 DO (94) NEXT
27 PLEASE DO ;1SUB.1#2 <- :2
28 DO .5 <- '?".1~.10"$#1'~#3
29 DO (1020) NEXT
30 DO (11) NEXT
31 PLEASE DO (100) NEXT
32 PLEASE READ OUT .9 + .10
33 DO .1 <- #1
34 DO (15) NEXT
35 (16) DO (1001) NEXT
36 (15) PLEASE FORGET #1
37 DO :1 <- ;1SUB.1#1
38 DO (5080) NEXT
39 PLEASE READ OUT :2
40 DO :1 <- ;1SUB.1#2
41 DO (5080) NEXT
42 PLEASE READ OUT :2
43 DO .5 <- '?".1~.10"$#1'~#3
44 DO (1020) NEXT
45 DO (16) NEXT
46 PLEASE GIVE UP
47
48 (91) DO (1001) NEXT
49 PLEASE ENTER ONE OR TWO TO SPECIFY THE TRANSFORM.
50 (92) DO (1001) NEXT
51 DO YOU REALLY WANT TO TRANSFORM A VECTOR OF ONE NUMBER?
52 (93) DO (1001) NEXT
53 DOES "POWER OF TWO" MEAN ANYTHING TO YOU?
54 (94) DO (1001) NEXT
55 DOCUMENTATION EXISTS. MAYBE YOU SHOULD READ IT.
56 PLEASE DON'T GIVE UP
57
58 (100) PLEASE STASH .1 + .2 + .3 + .4 + .5 + .6 + .7 + :1 + :2 +
59 :3 + :4 + :5 + :6 + :7 + .11 + :10 + :11 + :12 + :13
60 DO .11 <- #32768
61 DO .1 <- #1
62 DO .2 <- .10~#65532
63 DO (101) NEXT
64 (102) DO (1001) NEXT
65 PLEASE DO .11 <- .V11
66 DO (1020) NEXT
67 DO .2 <- .2~#65534
68 (101) PLEASE FORGET #1
69 DO .5 <- '?".2~.2"$#2'~#3
70 DO (102) NEXT
71 PLEASE STASH .1
72 DO .1 <- #1
73 DO .2 <- #1
74 DO (105) NEXT
75 (106) DO (1001) NEXT
76 (105) PLEASE FORGET #1
77 DO .5 <- '?.1$.2'~'#0$#65535'
78 DO .5 <- '?"!2~.5'~'"?.5~.5"~#32767'"$#1'~#3
79 DO (107) NEXT
80 PLEASE DO :1 <- ;1SUB.1#1
81 DO ;1SUB.1#1 <- ;1SUB.2#1
82 DO ;1SUB.2#1 <- :1
83 PLEASE DO :1 <- ;1SUB.1#2
84 DO ;1SUB.1#2 <- ;1SUB.2#2
85 DO ;1SUB.2#2 <- :1
86 DO (108) NEXT
87 (107) DO (1001) NEXT
88 (108) PLEASE FORGET #1
89 DO .5 <- .1
90 DO .1 <- !1~#255'$!1~#65280'
91 DO .1 <- !1~#255'$!1~#65280'
92 DO .1 <- !1~#255'$!1~#65280'
93 DO .1 <- !1~#255'$!1~#65280'
94 DO .1 <- .1~.11
95 DO (1020) NEXT
96 DO .2 <- .1
97 DO .1 <- .5
98 DO (1020) NEXT
99 DO .5 <- '?".1~.10"$#1'~#3
100 DO (106) NEXT
101 DO .6 <- #1
102 PLEASE DO :7 <- '"'V.9~#2'$#571"~"#32768$#32767"'$#35133
103 DO (110) NEXT
104 (111) DO (1001) NEXT
105 (110) PLEASE FORGET #1
106 DO .7 <- !6$#0'~'#32767$#1'
107 DO :1 <- :7
108 PLEASE DO (5200) NEXT
109 DO :13 <- :2
110 PLEASE DO :2 <- #63488$#61440
111 DO (1509) NEXT
112 DO :7 <- :3
113 DO :1 <- :3
114 PLEASE DO (5200) NEXT
115 DO :1 <- :2
116 PLEASE DO (530) NEXT
117 DO :1 <- :3
118 PLEASE DO :2 <- #34816$#0
119 PLEASE DO (1509) NEXT
120 DO :12 <- :3
121 DO :11 <- #0
122 PLEASE DO :10 <- #30720$#28672
123 DO .1 <- #1
124 DO (120) NEXT
125 (120) PLEASE FORGET #1
126 DO .4 <- .1
127 DO (130) NEXT
128 (131) DO (1001) NEXT
129 (130) PLEASE FORGET #1
130 DO .2 <- .6
131 DO (1000) NEXT
132 PLEASE DON'T GIVE UP
133 DO :1 <- :10
134 DO :2 <- ;1SUB.3#1
135 PLEASE DO (530) NEXT
136 DO :4 <- :3
137 DO :1 <- :11
138 DO :2 <- ;1SUB.3#2
139 PLEASE DO (530) NEXT
140 DO :1 <- :4
141 DO :2 <- :3
142 PLEASE DO (5010) NEXT
143 DO :5 <- :3
144 DO :1 <- :10
145 DO :2 <- ;1SUB.3#2
146 PLEASE DO (530) NEXT
147 DO :4 <- :3
148 DO :1 <- :11
149 DO :2 <- ;1SUB.3#1
150 PLEASE DO (530) NEXT
151 DO :1 <- :4
152 DO :2 <- :3
153 PLEASE DO (5000) NEXT
154 DO :6 <- :3
155 DO :1 <- ;1SUB.1#1
156 DO :2 <- :5
157 PLEASE DO (5010) NEXT
158 PLEASE DO ;1SUB.3#1 <- :3
159 DO :1 <- ;1SUB.1#2
160 DO :2 <- :6
161 PLEASE DO (5010) NEXT
162 PLEASE DO ;1SUB.3#2 <- :3
163 DO :1 <- ;1SUB.1#1
164 DO :2 <- :5
165 PLEASE DO (5000) NEXT
166 PLEASE DO ;1SUB.1#1 <- :3
167 DO :1 <- ;1SUB.1#2
168 DO :2 <- :6
169 PLEASE DO (5000) NEXT
170 PLEASE DO ;1SUB.1#2 <- :3
171 DO .2 <- .7
172 DO (1000) NEXT
173 DO .1 <- .3
174 DO .5 <- '?.1$.10'~'#0$#65535'
175 DO .5 <- '?"!1~.5'~'"?.5~.5"~#32767'"$#1'~#3
176 DO (131) NEXT
177 DO :1 <- :10
178 DO :2 <- :12
179 PLEASE DO (530) NEXT
180 DO :4 <- :3
181 DO :1 <- :11
182 DO :2 <- :13
183 PLEASE DO (530) NEXT
184 DO :1 <- :10
185 DO :2 <- :3
186 PLEASE DO (5010) NEXT
187 DO :1 <- :3
188 DO :2 <- :4
189 PLEASE DO (5000) NEXT
190 DO :1 <- :10
191 DO :2 <- :13
192 PLEASE DO :10 <- :3
193 PLEASE DO (530) NEXT
194 DO :4 <- :3
195 DO :1 <- :11
196 DO :2 <- :12
197 PLEASE DO (530) NEXT
198 DO :1 <- :11
199 DO :2 <- :3
200 PLEASE DO (5000) NEXT
201 DO :1 <- :3
202 DO :2 <- :4
203 PLEASE DO (5000) NEXT
204 DO :11 <- :3
205 DO .5 <- '?".4~.6"$#2'~#3
206 DO (121) NEXT
207 DO .1 <- .4
208 DO (1020) NEXT
209 DO (120) NEXT
210 (121) DO (1001) NEXT
211 PLEASE FORGET #1
212 DO .6 <- .7
213 DO .5 <- '?".6~.10"$#1'~#3
214 DO (111) NEXT
215 PLEASE RETRIEVE .1
216 DO .5 <- .9
217 DO (140) NEXT
218 DO .1 <- '?.1$#65535'~'#0$#65535'
219 DO (1020) NEXT
220 DO :2 <- '"'"'"!1$#0'~'#511$#1'"$#0'~'#1023$#3'"$#0'~'#4095$
221 #15'"$#0'~'#65535$#31'
222 DO :2 <- ':2~"#31$#2047"'$':2~"#1023$#63"'
223 DO .1 <- #1
224 DO (145) NEXT
225 (145) PLEASE FORGET #1
226 DO :1 <- ;1SUB.1#1
227 DO .5 <- '?"':1~":1~'#32767$#65535'"'~#1"$#1'~#3
228 DO (146) NEXT
229 PLEASE DO (1509) NEXT
230 DO ;1SUB.1#1 <- :3
231 DO (147) NEXT
232 (146) DO (1001) NEXT
233 (147) PLEASE FORGET #1
234 DO :1 <- ;1SUB.1#2
235 DO .5 <- '?"':1~":1~'#32767$#65535'"'~#1"$#1'~#3
236 DO (148) NEXT
237 PLEASE DO (1509) NEXT
238 DO ;1SUB.1#2 <- :3
239 DO (149) NEXT
240 (148) DO (1001) NEXT
241 (149) PLEASE FORGET #1
242 DO .5 <- '?".1~.10"$#2'~#3
243 DO (140) NEXT
244 DO (1020) NEXT
245 DO (145) NEXT
246 (140) DO (1001) NEXT
247 (141) PLEASE FORGET #1
248 DO .9 <- !9~#1'$!9~#2'
249 PLEASE RETRIEVE .1 + .2 + .3 + .4 + .5 + .6 + .7 + :1 + :2 +
250 :3 + :4 + :5 + :6 + :7 + .11 + :10 + :11 + :12 + :13
251 PLEASE RESUME #1
252
253 (530) DO (5030) NEXT
254 DO (531) NEXT
255 DO :3 <- '"':3~"#65535$#0"'$#32767"~"#32768$#32767"'$#65535
256 PLEASE RESUME #1
257 (531) DO (532) NEXT
258 DO :3 <- '"':3~"#65535$#0"'$':3~"#2047$#0"'"~"#32768$#32767"'$
259 ':3~"#0$#4095"'
260 PLEASE RESUME #2
261 (532) DO (1001) NEXT
262 PLEASE RESUME #3
263
264 PLEASE APPEND THE FLOATING-POINT LIBRARY ROUTINES