A Japanese counting system by tybalt89

#!perl -ln
for$r(!//..4){$_=join 0,map{unpack b7,substr'\x7f\x08:
\x7f\x7f\x00\x00\x00\x00\x7f\x08\x08\x08\x00\x7f\x088\x08\x00\x7f\x08:
\x00',$_*5+$r}(0)x(~-$'/5),$'%5;y/01/ */;print}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page