Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 19 lines (14 sloc) 276 Bytes
#! /usr/bin/perl
use Modern::Perl;
use Data::Dumper;
use Boggle;
my $game = Boggle->new();
# print the standard Boggle grid
my $count = 0;
for my $char ( @{$game->faces} ) {
$count++;
print ' ' . $char;
if ( $count % 4 == 0 ) {
print "\n\n";
}
}