adamcrussell
Perl. Developed and tested with Perl 5.40.0.use v5.40; my @input; open DATA, q/data/; while(<DATA>){ chomp; push @input, [split /,/, $_]; } close(DATA); my %seen; my @x_coordinates = sort { $a <=> $b } grep { !$seen{$_}++ } map { $_->[0] } @input;...
adamcrussell
Perl. Developed and tested with Perl 5.40.0.use v5.40; no warnings q/recursion/; my @grid; open DATA, q/data/; while(<DATA>){ chomp; push @grid, [split //, $_]; } close(DATA); my $count = 1; my $line = shift @grid; my @beam = (1, (grep {$line->[$_] eq q/S/} 0 .. @{$line} -...
adamcrussell
Perl. Developed and tested with Perl 5.40.0.use v5.40; my @grid; open DATA, q/data/; while(<DATA>){ chop; push @grid, $_; } close(DATA); my $format = build_unpack_format(@grid); @grid = (); open DATA, q/data/; while(<DATA>){ chop; my @fields = unpack $format, $_;...
adamcrussell
Perl. Developed and tested with Perl 5.42.0.use v5.42; my @grid; open DATA, q/data/; while(<DATA>){ chomp; push @grid, [split //, $_]; } my @forklift_accessible; { my @accessible = (); for my $i (0 .. @grid - 1){ my $row = $grid[$i]; for my $j (0 .. @{$row}...