To continue the silliness, here's one that hides the loop in a regex:
#!/usr/bin/env perl use strict; use warnings; $_ = '1' x 64; s{1}{ my $p=pos()+1; sprintf("%3d",$p).($p%8?'':"\n") }ge; print;
Aaron B.
Available for small or large Perl jobs; see my home node.
In reply to Re: Chess Board Single Loop
by aaron_baugher
in thread Chess Board Single Loop
by xantithor
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |