annotate interps/c-intercal/pit/icat.i @ 11688:06331fefa90d
draft
<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 |
|
rev |
line source |
996
|
1 PLEASE DO ,1 <- #1
|
|
2 DO .4 <- #0
|
|
3 DO .5 <- #0
|
|
4 DO COME FROM (30)
|
|
5 DO WRITE IN ,1
|
|
6 DO .1 <- ,1SUB#1
|
|
7 DO (10) NEXT
|
|
8 PLEASE GIVE UP
|
|
9 (20) PLEASE RESUME '?.1$#256'~'#256$#256'
|
|
10 (10) DO (20) NEXT
|
|
11 DO FORGET #1
|
|
12 PLEASE DO .2 <- .4
|
|
13 DO (1000) NEXT
|
|
14 DO .4 <- .3~#255
|
|
15 PLEASE DO .3 <- !3~#15'$!3~#240'
|
|
16 DO .3 <- !3~#15'$!3~#240'
|
|
17 DO .2 <- !3~#15'$!3~#240'
|
|
18 PLEASE DO .1 <- .5
|
|
19 DO (1010) NEXT
|
|
20 DO .5 <- .2
|
|
21 DO ,1SUB#1 <- .3
|
|
22 (30) PLEASE READ OUT ,1
|
|
23
|