This commit is contained in:
Yanick Champoux 2017-12-03 13:08:09 -05:00
parent bf69af5e30
commit 467387618b

28
day3/day3b.pm Normal file
View File

@ -0,0 +1,28 @@
use 5.20.0;
use experimental 'postderef';
use Array::Tour::Spiral;
use List::AllUtils qw/ sum /;
my $num = shift;
my $spiral = Array::Tour::Spiral->new( dimensions => $num );
my $grid = [];
my $first = 1;
while ( my ($x,$y) = $spiral->next->@* ) {
if( $first) {
$grid->[$x][$y] = 1;
$first = 0;
}
else {
$grid->[$x][$y] = sum map {
my $i = $_;
map { $grid->[$x+$i][$y+$_] } -1..1
} -1..1
}
warn $grid->[$x][$y];
exit say $_ for grep { $_ > $num } $grid->[$x][$y];
}