File: random.i

package info (click to toggle)
intercal 29%3A0.29-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 5,328 kB
  • sloc: ansic: 9,047; sh: 1,277; yacc: 1,079; lex: 518; lisp: 463; makefile: 419; perl: 304
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