Mercurial > repo
annotate interps/c-intercal/pit/random.i @ 12333:8fe028f51d1c draft
<b_jonas> `` sed -i \'s/" ./"./\' /hackenv/wisdom/california
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Fri, 29 May 2020 17:06:53 +0000 |
parents | 859f9b4339e6 |
children |
rev | line source |
---|---|
996 | 1 DO (1900) NEXT |
2 DO READ OUT .1 | |
3 PLEASE GIVE UP | |
4 (1900) DO STASH .2 + .3 | |
5 DO .3 <- #65535 | |
6 DO (1903) NEXT | |
7 (1903) PLEASE FORGET #1 | |
8 DO .2 <- #0 | |
9 PLEASE %50 IGNORE .2 | |
10 DO .2 <- #1 | |
11 PLEASE REMEMBER .2 | |
12 DO .1 <- !1$.2'~"#65535$#1" | |
13 DO .3 <- .3~#65534 | |
14 DO (1902) NEXT | |
15 DO (1903) NEXT | |
16 (1902) DO (1904) NEXT | |
17 DO RETRIEVE .2 + .3 | |
18 DO FORGET #1 | |
19 PLEASE RESUME #1 | |
20 (1904) PLEASE RESUME '?"!3~.3'~#1"$#1'~#3 |