Suanpan abacus by tails

$x=<>;sub f{my$_=$x;s/[ @_~]/  (__)/g;s/\d/   || /g;print"||$_  ||
"}$_='|\\'.'='x6x(length$x).'==/|
';print;f-9;f-4;f;f"5-";y|\\/|<>|;print;$x=~y/5-9/0-4/;f"$_-"for 1..5;f-$_ for 0..4;y|<>|/\\|;print

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

download

return to the top page