A Japanese counting system by addps4cat

#!perl -nla
for$c(0..4){@o=map{$p=unpack b7;$p=~y/01/ */;$p}(qw/\x00 \x08 8 : \x7f/,"
")[map{substr"4000041110412104135041354",$_,1}(map{5*$_-5+$c}(map{5}1..$F[0]/5),$F[0]%5?$F[0]%5:())];print"@o"}

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

download

return to the top page