Mercurial > repo
view interps/dimensifuck/Madness.dim @ 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 |
line wrap: on
line source
00>+++++++++++=^ =v ^+.>>++++++++++=^ =v ^+.++++++.>>++++++++=^ =v ^.<--------------------.>>>++++++++++++++=^ =v ^++.<<++++.>.>-----.<<----.+++.>++++++++++++++.>>++++++++++.X 01 < Y < o u < a < r e m a d . /n 02 + 89@1 + 111@2 117@2 + 32@3 97@1 + 114 101 109 97 100 46 10 03 + + + + 04 + + + + 05 + + + + 06 + + > + 07 + + + + 08 + + _ _ _ + 09 + + ^--=v<v + 10 > + > 11 + + + 12 _ _ _ + _ _ _ 13 ^--=v<v > ^--=v<v 14 + 15 _ _ _ 16 ^--=v<v