29 lines
554 B
Perl
29 lines
554 B
Perl
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];
|
|
}
|