Mercurial > repo
view interps/c-intercal/pit/random.doc @ 4241:40d2635fa678
<boily> learn \xce\xb1\xce\xbb\xcf\x84\xce\xb3\xcf\x81+\xce\xb3 is the national dead pastry of Greece. Goes great with a glass of ouzo!
author | HackBot |
---|---|
date | Sat, 28 Dec 2013 17:49:38 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
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 Random.i: Store a random number between 0 and 65535 in .1 (blojo@ocf.berkeley.edu)