Mercurial > repo

view interps/c-intercal/pit/random.i @ 12508:335a2a849232 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<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
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