4 use experimental 'multidimensional', 'for_list', 'builtin';
17 my @map = map { [ split // ] } split /\n/, $_;
19 say "============ $#{ $map[0] } x $#map ==========";
21 for my $r1 (1 .. $#{ $map[0] }) {
23 for my $x (0 .. $r1) {
26 next if $x1 > $#{ $map[0] };
27 for my $y (0 .. $#map) {
28 next COL if $map[$y][$x] ne $map[$y][$x1];
36 for my $r1 (1 .. $#map) {
38 for my $y (0 .. $r1) {
42 for my $x (0 .. $#{ $map[0] }) {
43 next ROW if $map[$y][$x] ne $map[$y1][$x];