annotate interps/c-intercal/pit/tests/iogerunds.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 .1 <- #123
|
|
|
2 DO ABSTAIN FROM WRITING IN
|
|
|
3 DO COME FROM (123)
|
|
|
4 (100) DO WRITE IN .1
|
|
|
5 PLEASE .2 <- #1
|
|
|
6 DO %50 .2 <- !2$#0'
|
|
|
7 PLEASE DO (42) NEXT
|
|
|
8 DO ABSTAIN FROM READING OUT
|
|
|
9 PLEASE COME FROM (69)
|
|
|
10 DO READ OUT .1
|
|
|
11 DO REINSTATE READING OUT
|
|
|
12 (123) PLEASE REINSTATE (100)
|
|
|
13 (42) DO (43) NEXT
|
|
|
14 DO FORGET #1
|
|
|
15 DO (105) NEXT
|
|
|
16 PLEASE GIVE UP
|
|
|
17 (105) DO (106) NEXT
|
|
|
18 (69) DON'T GIVE UP
|
|
|
19 (106) PLEASE DO RESUME "'?"!1~.1'~#1"$#1'~#1"$'".1~.1"~#1'
|
|
|
20 (43) DO RESUME .2
|
