File: count.3i

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 (43 lines) | stat: -rw-r--r-- 1,006 bytes parent folder | download | duplicates (9)
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
	DO ,1 <- #16
	DO :2 <- #6490$#55022
	PLEASE DO (44) NEXT
	DO :2 <- #5631$#54733
	PLEASE DO (44) NEXT
	DO :2 <- #14637$#40039
	PLEASE DO (44) NEXT
	DO :2 <- #58550$#53112
	PLEASE DO (44) NEXT
	DO .1 <- #1
	PLEASE DO (99) NEXT
	DO GIVE UP
(44)	DO REINSTATE COMING FROM
(19)	DO COME FROM (68)
	DO ABSTAIN FROM (19)
(31)	DO COME FROM (34)
	DO ABSTAIN FROM (31)
(88)	DO COME FROM (65)
	PLEASE ABSTAIN FROM (88)
	DO COME FROM (44)
	PLEASE DO (123) NEXT
	DO .3 <- ':2~"#4$#13"'
	DO :2 <- ':2~"#29520$#29511"'
	DO ,1 SUB .1 <- .3
(65)	DON'T GIVE UP
(34)	PLEASE DON'T GIVE UP
(68)	DO NOTE THAT THIS FUNNY CODE ACTUALLY WORKS
	PLEASE RESUME #1
(99)	DO COME FROM (69)
	DO READ OUT ,1
	DO ,1 SUB #1 <- #180
	DO READ OUT .1
	DO .2 <- "?.1$#10"~"#0$#29524"
	PLEASE DO (15) NEXT
(69)	PLEASE DO (123) NEXT
(42)	DO RESUME .9
(123)	PLEASE .8 <- #1
	DO COME FROM (81)
	DO .9 <- '?"V!1~.8'$#1"~#1'~#1
	DO .1 <- "^.1$.8"~"#0$#29524"
	PLEASE DO (42) NEXT
(81)	DO .8 <- !8$#0'~"#9841$#1"
(15)	PLEASE RESUME '?"!2~.2'~#2"$#1'~#1