Mercurial > repo

view interps/c-intercal/pit/sample.i @ 11688:06331fefa90d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<b_jonas> perl -e for $e ("i","u"){ $f="bin/date$e"; open my$i,"<",$f or die "error open $f r"; local$/; $s=<$i> or die; $s=~s/"\\+%Y/\\${1:+-d "\\$1"} $&/ or die; open $o,">",$f or die "error open $f w: $!"; print $o $s or die; close $o or die; print "OK $f\\n" }
author HackEso <hackeso@esolangs.org>
date Fri, 04 Jan 2019 21:30:13 +0000
parents 859f9b4339e6
children
line wrap: on
line source

	DO (5) NEXT
    (5) DO FORGET #1
	PLEASE WRITE IN :1
	DO .1 <- '?":1~'#32768$#0'"$#1'~#3
	DO (1) NEXT
	DO :1 <- "'?":1~'#65535$#0'"$#65535'
		~'#0$#65535'"$"'?":1~'#0$#65535'"
		$#65535'~'#0$#65535'"
	DO :2 <- #1
	PLEASE DO (4) NEXT
    (4) DO FORGET #1
	DO .1 <- "?':1~:2'$#1"~#3
	DO :1 <- "'?":1~'#65535$#0'"$":2~'#65535
		$#0'"'~'#0$#65535'"$"'?":1~'#0
		$#65535'"$":2~'#0$#65535'"'~'#0$#65535'"
	DO (1) NEXT
	DO :2 <- ":2~'#0$#65535'"
		$"'":2~'#65535$#0'"$#0'~'#32767$#1'"
	DO (4) NEXT
    (2) DO RESUME .1
    (1) PLEASE DO (2) NEXT
	PLEASE FORGET #1
	DO READ OUT :1
	PLEASE DO .1 <- '?"':1~:1'~#1"$#1'~#3
	DO (3) NEXT
	PLEASE DO (5) NEXT
    (3) DO (2) NEXT
	PLEASE GIVE UP