File: pi.i

package info (click to toggle)
intercal 0.20-4
  • links: PTS
  • area: main
  • in suites: potato
  • size: 928 kB
  • ctags: 269
  • sloc: ansic: 2,182; lex: 380; makefile: 276; yacc: 245; lisp: 138
file content (137 lines) | stat: -rw-r--r-- 2,723 bytes parent folder | download | duplicates (10)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
	PLEASE WRITE IN .10
	DO .1 <- .10~#65534
	DO (1020) NEXT
	DO .10 <- !1$.10'~'#32767$#1'
	DO .1 <- .10
	DO .2 <- #10
	PLEASE DO (1030) NEXT
	DO .1 <- .3
	DO .2 <- #3
	DO (1040) NEXT
	DO .9 <- .3

	DO ,1 <- .9
	DO .1 <- .9
	PLEASE COME FROM (13)
	DO ,1 SUB .1 <- #2
	DO (11) NEXT
(12)	DO (2010) NEXT
(13)	PLEASE FORGET #2
(11)	DO (12) NEXT

	DO .15 <- #0
	DO .16 <- #0
	DO (100) NEXT
	DO .1 <- .10
	DO (2000) NEXT
	PLEASE COME FROM (23)
	DO .10 <- .1
	DO (100) NEXT
	PLEASE READ OUT .17
	DO .1 <- .10
	DO (21) NEXT
(22)	DO (2010) NEXT
(23)	PLEASE FORGET #2
(21)	DO (22) NEXT
	PLEASE FORGET #2
	PLEASE GIVE UP

(100)	DO .14 <- #0
	DO .12 <- .9
	PLEASE COME FROM (103)
	DO .1 <- .14
	DO .2 <- .12
	DO (1030) NEXT
	DO .14 <- .3
	DO .1 <- ,1 SUB .12
	DO .2 <- #10
	DO (1030) NEXT
	DO .1 <- .3
	DO .2 <- .14
	DO (1000) NEXT
	DO .1 <- !12$#0'~'#32767$#1'
	DO (2000) NEXT
	DO .2 <- .1
	DO .1 <- .3
	DO (2030) NEXT
	DO .14 <- .3
	DO ,1 SUB .12 <- .4
	DO .1 <- .12
	DO (101) NEXT
(102)	DO (2010) NEXT
	DO .12 <- .1
(103)	PLEASE FORGET #2
(101)	DO (102) NEXT
	DO .17 <- .16
	DO .1 <- .14
	DO .2 <- #10
	DO (2030) NEXT
	DO .1 <- .15
	DO .2 <- .3
	DO (1000) NEXT
	DO .16 <- .3
	DO .15 <- .4
	DO .5 <- '?.16$#10'~#85
	DO .5 <- "?!5~.5'$#2"~#3
	DO (104) NEXT
	DO .16 <- #0
	DO .1 <- .17
	DO (1020) NEXT
	DO .17 <- .1
	PLEASE RESUME #2
(104)   DO (1001) NEXT
	PLEASE RESUME #3


(2010)  PLEASE ABSTAIN FROM (2004)
(2000)  PLEASE STASH .2
        DO .2 <- #1
        DO (2001) NEXT
(2001)  PLEASE FORGET #1
        DO .1 <- '?.1$.2'~'#0$#65535'
        DO (2002) NEXT
        DO .2 <- !2$#0'~'#32767$#1'
        DO (2001) NEXT
(2003)  PLEASE RESUME "?!1~.2'$#1"~#3
(2002)  DO (2003) NEXT
        PLEASE RETRIEVE .2
(2004)	PLEASE RESUME #2
	PLEASE DO REINSTATE (2004)
	PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
(2020)  PLEASE STASH .2 + .3
	DO (1021) NEXT
(2030)	DO STASH .1 + .5
	DO .3 <- #0
	DO .5 <- '?"!2~.2'~#1"$#1'~#3
	PLEASE DO (2031) NEXT
	DO .4 <- #1
	PLEASE DO (2033) NEXT
(2033)	DO FORGET #1
	DO .5 <- '?".2~#32768"$#2'~#3
	DO (2032) NEXT
	DO .2 <- !2$#0'~'#32767$#1'
	PLEASE DO .4 <- !4$#0'~'#32767$#1'
	DO (2033) NEXT
(2032)	DO (1001) NEXT
(2036)	PLEASE FORGET #1
        DO .5 <- '?.1$.2'~'#0$#65535'
        DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
                 ".5~.5"'~#1"$#2'~#3
	DO (2034) NEXT
	DO .5 <- .3
	DO (1010) NEXT
	PLEASE DO .1 <- .3
        DO .3 <- 'V.4$.5'~'#0$#65535'
	DO (2035) NEXT
(2034)	PLEASE DO (1001) NEXT
(2035)	DO FORGET #1
	DO .5 <- "?'.4~#1'$#2"~#3
	DO (2031) NEXT
	DO .2 <- .2~#65534
	DO .4 <- .4~#65534
	PLEASE DO (2036) NEXT
(2031)	DO (1001) NEXT
	PLEASE DO .4 <- .1
	PLEASE RETRIEVE .1 + .5
	PLEASE RESUME #2
        PLEASE NOTE THAT YOU DON'T HAVE TO APPEND STANDARD LIBRARY HERE