annotate interps/c-intercal/pit/iching1.i @ 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 .2 <- #32
|
|
|
2 PLEASE COME FROM (10)
|
|
|
3 DO .1 <- #0
|
|
|
4 DO (1020) NEXT
|
|
|
5 DO (1020) NEXT
|
|
|
6 PLEASE DO %50 (1020) NEXT
|
|
|
7 DO (1020) NEXT
|
|
|
8 DO (1020) NEXT
|
|
|
9 PLEASE DO %50 (1020) NEXT
|
|
|
10 DO (1020) NEXT
|
|
|
11 DO (1020) NEXT
|
|
|
12 PLEASE DO %50 (1020) NEXT
|
|
|
13 DO READ OUT .1
|
|
|
14 DO (30) NEXT
|
|
|
15 (10) DO .2 <- .2~#62
|
|
|
16 (20) DO RESUME "?.2$#2"~#3
|
|
|
17 (30) DO (20) NEXT
|
|
|
18 PLEASE FORGET #1
|
|
|
19 PLEASE GIVE UP
|
