File: random2.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 (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