Re: Chess Board Single Loop

[aaron_baugher]

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;

[hdb]

How about this?

print join( " ", 1..64 ) =~ s/(\d+\s?){8}\K/\n/gr;