Post History
Perl, 65 bytes Takes 2D array as input. Returns array of zero-indexed pairs. sub f{map{my$x=$_;map[$x,$_],grep$_[$x][$_],keys@{$_[$_]}}keys@_} Because f [[...],[...],...] is Perl syntax to...
#2: Post edited
by
jhnc
·
2026-03-23T19:50:12Z (6 months ago)
# Perl, 66 bytes- Takes 2D array as input. Returns array of zero-indexed pairs.
- <!-- language-all: lang-perl -->
sub f{map{my$x=$_;map[$x,$_],grep$_[$x][$_],keys @{$_[$_]}}keys@_}- * Because `f [[...],[...],...]` is Perl syntax to pass in a *reference* to an array (list), to avoid a bunch of dereferencing I have used `f ([...],[...],...)`. Otherwise would be something like:
- ```
- sub f{map{my$x=$_;map[$x,$_],grep$_[0][$x][$_],keys@{$_[0][$_]}}keys@{$_[0]}}
- ```
[Try it online!][TIO-mn3kpqii][TIO-mn3kpqii]: https://tio.run/##bY2xCgMhEET7@4othEvAwivSnASuuL@QRQysKRJB9IQ7xG83mpBUYYvZNwwznsLzUlMkWM1m5nlNzlOQQ3csmS0FgjGaY5Q1phvY7IzP7mD7lWnZfsV2zjTyeyDPdCNUHR90RFhydzSW0nHRpbYi@CyAAgsnNXHBp/cJPAPK4X8C@U/FN1tf "Perl 5 – Try It Online"
- # Perl, 65 bytes
- Takes 2D array as input. Returns array of zero-indexed pairs.
- <!-- language-all: lang-perl -->
- sub f{map{my$x=$_;map[$x,$_],grep$_[$x][$_],keys@{$_[$_]}}keys@_}
- * Because `f [[...],[...],...]` is Perl syntax to pass in a *reference* to an array (list), to avoid a bunch of dereferencing I have used `f ([...],[...],...)`. Otherwise would be something like:
- ```
- sub f{map{my$x=$_;map[$x,$_],grep$_[0][$x][$_],keys@{$_[0][$_]}}keys@{$_[0]}}
- ```
- [Try it online!][TIO-mn3lngp0]
- [TIO-mn3lngp0]: https://tio.run/##bY2xCgMhEET7@4othEvAwivSnARS3F/IIgbWFIkgesId4rcbvZBUYYvZNwwznsLrUlMkWMxq5nlJzlOQQ3csmTUFgjGafZQ1pjvY7IzPbmfblWnZfsU2zjTyRyDPdCNUHZ@0x1vuhsZSDtKlth74DIACCyc1ccGn4wSeAeXwP4H8p@KbrW8 "Perl 5 – Try It Online"
#1: Initial revision
by
jhnc
·
2026-03-23T19:48:14Z (6 months ago)
# Perl, 66 bytes
Takes 2D array as input. Returns array of zero-indexed pairs.
<!-- language-all: lang-perl -->
sub f{map{my$x=$_;map[$x,$_],grep$_[$x][$_],keys @{$_[$_]}}keys@_}
* Because `f [[...],[...],...]` is Perl syntax to pass in a *reference* to an array (list), to avoid a bunch of dereferencing I have used `f ([...],[...],...)`. Otherwise would be something like:
```
sub f{map{my$x=$_;map[$x,$_],grep$_[0][$x][$_],keys@{$_[0][$_]}}keys@{$_[0]}}
```
[Try it online!][TIO-mn3kpqii]
[TIO-mn3kpqii]: https://tio.run/##bY2xCgMhEET7@4othEvAwivSnASuuL@QRQysKRJB9IQ7xG83mpBUYYvZNwwznsLzUlMkWM1m5nlNzlOQQ3csmS0FgjGaY5Q1phvY7IzP7mD7lWnZfsV2zjTyeyDPdCNUHR90RFhydzSW0nHRpbYi@CyAAgsnNXHBp/cJPAPK4X8C@U/FN1tf "Perl 5 – Try It Online"