Mercurial > repo
annotate interps/c-intercal/pit/random.doc @ 12508:335a2a849232 draft default tip
<wib_jonas> `` f=/hackenv/bin/dateu; >$f echo $\'#!/bin/bash\\nset -e\\nif (( 1 < $# )); then echo "dateu error: too many command-line arguments. Usage: dateu datetimestring"; exit 2; fi\\nexec date -u ${1:+-d "$1"} "+%Y-%m-%d %H:%M:%S.%3N %z %Z %B %-e %A %G-W%V-%u"\'; chmod a+x "$f"
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Wed, 03 Jul 2024 18:15:24 +0100 |
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 | |
21 | |
22 Random.i: Store a random number between 0 and 65535 in .1 | |
23 (blojo@ocf.berkeley.edu) |