Mercurial > repo
annotate interps/glass/exa/fibonacci.glass @ 11686:10d612def8ee 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/\\${d:+-d "\\$d"} $&/ 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:29:08 +0000 |
parents | 859f9b4339e6 |
children |
rev | line source |
---|---|
996 | 1 {F |
2 [f | |
3 (_a)A! | |
4 (_o)O! | |
5 (_t)$ | |
6 (_n)1= | |
7 , | |
8 (_isle)(_n)*<2>(_a)(le).?= | |
9 /(_isle) | |
10 <1> | |
11 ^ | |
12 \ | |
13 (_n)*<1>(_a)s.?(_t)f.? | |
14 (_n)*<2>(_a)s.?(_t)f.? | |
15 (_a)a.? | |
16 ] | |
17 } | |
18 | |
19 {M | |
20 [m | |
21 (_a)A! | |
22 (_f)F! | |
23 (_o)O! | |
24 (_n)<1>= | |
25 (_nlm)<1>= | |
26 /(_nlm) | |
27 (_n)*(_f)f.? | |
28 (_o)(on).? | |
29 " "(_o)o.? | |
30 (_n)(_n)*<1>(_a)a.?= | |
31 (_nlm)(_n)*<20>(_a)(le).?= | |
32 \ | |
33 ] | |
34 } | |
35 |