Soroban Fixed by tybalt89

#!perl -lpaF
sub f{$r+=print map+($r<2?$_<5^$r:$_%5^$r-2)?'<->':' | ',@F}$n=s/./===/g;print;f
f;print map--$n%4?'===':'=*=',@F;f f f f f

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

download

return to the top page