File: random2.i

package info (click to toggle)
intercal 30%3A0.30-6
  • links: PTS
  • area: main
  • in suites: sid, trixie
  • size: 4,044 kB
  • sloc: ansic: 8,936; sh: 1,274; yacc: 1,073; lex: 518; lisp: 460; makefile: 438; perl: 295
file content (17 lines) | stat: -rw-r--r-- 442 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
(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