File: random.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 (20 lines) | stat: -rw-r--r-- 395 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
 
	DO (1900) NEXT
	DO READ OUT .1
	PLEASE GIVE UP
(1900)	DO STASH .2 + .3
	DO .3 <- #65535
	DO (1903) NEXT
(1903)	PLEASE FORGET #1
	DO .2 <- #0
	PLEASE %50 IGNORE .2
	DO .2 <- #1
	PLEASE REMEMBER .2
	DO .1 <- !1$.2'~"#65535$#1"
	DO .3 <- .3~#65534
	DO (1902) NEXT
	DO (1903) NEXT
(1902)	DO (1904) NEXT
	DO RETRIEVE .2 + .3
	DO FORGET #1
	PLEASE RESUME #1
(1904)	PLEASE RESUME '?"!3~.3'~#1"$#1'~#3