File: testarray.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 (24 lines) | stat: -rw-r--r-- 538 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
 
        PLEASE DO ,1 <- #3 BY #3
        DO ;2 <- #6
        DO ,2 <- #6
	DO .1 <- #1
	DO .2 <- #1
	DO ,1 SUB .2.1 <- #1
	DO ;2 SUB #5 <- #1
	DO .1 <- "?',1 SUB .2.1'$#1"~#3
	DO .2 <- ,1 SUB #1 ;2 SUB #5
	DO .1 <- .2~,1 SUB #1 #1
	DO STASH .1 + ,2 + ;2 + ,1 + ,3
	DO ,1 <- #500
	DO ,1 SUB #1 <- #112
	PLEASE DO READ OUT ,1 SUB .2
	PLEASE RETRIEVE ,2 + ,1 + ,3
	DO .1 <- #?1
	DO .1 <- .?1
	PLEASE DO READ OUT ,1 SUB #1 #1
	DO .1 <- .2$,&1 SUB #1 #1
	PLEASE DO READ OUT .1
	DO .1 <- .2$,V1 SUB #1 #1
	PLEASE DO READ OUT .1

	PLEASE GIVE UP