Post History

60%

+1 −0

Perl, 61 bytes Takes Perl list as argument; returns Perl list (in list context). sub z{map{$a=0;$a++while$a<@_&&$F[$a]==$_[$a];shift;$a}@F=@_} sub z { map { ...

posted 5mo ago by jhnc‭ · edited 5mo ago by jhnc‭

Answer

#3: Post edited by

jhnc‭ · 2026-04-11T07:50:20Z (5 months ago)

Copy Link

Raw

Markdown

# Perl, 61 bytes
Takes Perl list as argument; returns Perl list (in list context).
sub z{map{$a=0;$a++while$a<@_&&$F[$a]==$_[$a];shift;$a}@F=@_}
```perl
sub z {
map { # 2. loop for each element
$a=0; # - initialise counter
$a++ while $a<@_ && $F[$a]==$_[$a]; # - count matches
shift; # - drop the element
$a # - output the count
} @F=@_ # 1. make copy of list
}
```
[Try it online!][TIO-mnu0s7u1]
[TIO-mnu0s7u1]: https://tio.run/##ZVDNboMgAL73KQjBZp2YCuqSxtF46g57BDFGU7u6ODTFZUubvvocWlCbhoDC9wtNcaqCLsrZmr/FMU74O9/b64@wk985OF@@suaCMuaGKLPtn2NZFSh7jdLlEu1ilCWMobT/hvJYHlpFukY7FqXXrjmVoj0AaEkurGfJtiC2ZMIFFxCjFJdiX/w@qR/obOEKQwDxZ10qDOJzlHcxwRR72MdBAhwlDbB7G8lCQXoYyFdMqrYGopgaSB2PKjpAZDL01CQaGsB5Fp1lUZM4WRNXe/clp5S@9I3nDaU8k0d0/95XR5tWGxOvpjfznyvIHd/cZVaaTFw69gcL/Y4PqxbdqJthfXkoRsfL0/vH0zoyRPlTyeSvbtqyFrJzRPUP "Perl 5 – Try It Online"

# Perl, 61 bytes
Takes Perl list as argument; returns Perl list (in list context).
sub z{map{$a=0;$a++while$a<@_&&$F[$a]==$_[$a];shift;$a}@F=@_}
```perl
sub z {
map { # 2. loop for each element
$a=0; # - initialise counter
$a++ while $a<@_ && $F[$a]==$_[$a]; # - count matches
shift; # - drop the element
$a # - output the count
} @F=@_ # 1. make copy of list
}
```
[Try it online!][TIO-mnu0s7u1]
[TIO-mnu0s7u1]: https://tio.run/##ZVDNboMgAL73KQjBZp2YCuqSxtF46g57BDFGU7u6ODTFZUubvvocWlCbhoDC9wtNcaqCLsrZmr/FMU74O9/b64@wk985OF@@suaCMuaGKLPtn2NZFSh7jdLlEu1ilCWMobT/hvJYHlpFukY7FqXXrjmVoj0AaEkurGfJtiC2ZMIFFxCjFJdiX/w@qR/obOEKQwDxZ10qDOJzlHcxwRR72MdBAhwlDbB7G8lCQXoYyFdMqrYGopgaSB2PKjpAZDL01CQaGsB5Fp1lUZM4WRNXe/clp5S@9I3nDaU8k0d0/95XR5tWGxOvpjfznyvIHd/cZVaaTFw69gcL/Y4PqxbdqJthfXkoRsfL0/vH0zoyRPlTyeSvbtqyFrJzRPUP "Perl 5 – Try It Online"
I assume this is complexity $O(n^2)$

#2: Post edited by

jhnc‭ · 2026-04-11T07:46:46Z (5 months ago)

Copy Link

Raw

Markdown

# Perl, 61 bytes
Takes Perl list as argument; returns Perl list (in list context).
sub z{map{$a=0;$a++while$a<@_&&$F[$a]==$_[$a];shift;$a}@F=@_}
```perl
sub z {
map { # 2. loop for each element
$a=0; # - initialise counter
$a++ while $a<@_ && $F[$a]==$_[$a]; # - count matches
shift; # - drop the element
~~$a # - output the count~~
} @F=@_ # 1. make copy of list
}
```
[Try it online!][TIO-mnu0s7u1]
[TIO-mnu0s7u1]: https://tio.run/##ZVDNboMgAL73KQjBZp2YCuqSxtF46g57BDFGU7u6ODTFZUubvvocWlCbhoDC9wtNcaqCLsrZmr/FMU74O9/b64@wk985OF@@suaCMuaGKLPtn2NZFSh7jdLlEu1ilCWMobT/hvJYHlpFukY7FqXXrjmVoj0AaEkurGfJtiC2ZMIFFxCjFJdiX/w@qR/obOEKQwDxZ10qDOJzlHcxwRR72MdBAhwlDbB7G8lCQXoYyFdMqrYGopgaSB2PKjpAZDL01CQaGsB5Fp1lUZM4WRNXe/clp5S@9I3nDaU8k0d0/95XR5tWGxOvpjfznyvIHd/cZVaaTFw69gcL/Y4PqxbdqJthfXkoRsfL0/vH0zoyRPlTyeSvbtqyFrJzRPUP "Perl 5 – Try It Online"

# Perl, 61 bytes
Takes Perl list as argument; returns Perl list (in list context).
sub z{map{$a=0;$a++while$a<@_&&$F[$a]==$_[$a];shift;$a}@F=@_}
```perl
sub z {
map { # 2. loop for each element
$a=0; # - initialise counter
$a++ while $a<@_ && $F[$a]==$_[$a]; # - count matches
shift; # - drop the element
$a # - output the count
} @F=@_ # 1. make copy of list
}
```
[Try it online!][TIO-mnu0s7u1]
[TIO-mnu0s7u1]: https://tio.run/##ZVDNboMgAL73KQjBZp2YCuqSxtF46g57BDFGU7u6ODTFZUubvvocWlCbhoDC9wtNcaqCLsrZmr/FMU74O9/b64@wk985OF@@suaCMuaGKLPtn2NZFSh7jdLlEu1ilCWMobT/hvJYHlpFukY7FqXXrjmVoj0AaEkurGfJtiC2ZMIFFxCjFJdiX/w@qR/obOEKQwDxZ10qDOJzlHcxwRR72MdBAhwlDbB7G8lCQXoYyFdMqrYGopgaSB2PKjpAZDL01CQaGsB5Fp1lUZM4WRNXe/clp5S@9I3nDaU8k0d0/95XR5tWGxOvpjfznyvIHd/cZVaaTFw69gcL/Y4PqxbdqJthfXkoRsfL0/vH0zoyRPlTyeSvbtqyFrJzRPUP "Perl 5 – Try It Online"

#1: Initial revision by

jhnc‭ · 2026-04-11T07:46:17Z (5 months ago)

Copy Link

Raw

Markdown

# Perl, 61 bytes

Takes Perl list as argument; returns Perl list (in list context).

<!-- language-all: lang-perl -->

    sub z{map{$a=0;$a++while$a<@_&&$F[$a]==$_[$a];shift;$a}@F=@_}


```perl
sub z {
  map {                                 # 2. loop for each element
    $a=0;                               #   - initialise counter
    $a++ while $a<@_ && $F[$a]==$_[$a]; #   - count matches
    shift;                              #   - drop the element
    $a                                  # - output the count

  } @F=@_                               # 1. make copy of list
}
```


[Try it online!][TIO-mnu0s7u1]

[TIO-mnu0s7u1]: https://tio.run/##ZVDNboMgAL73KQjBZp2YCuqSxtF46g57BDFGU7u6ODTFZUubvvocWlCbhoDC9wtNcaqCLsrZmr/FMU74O9/b64@wk985OF@@suaCMuaGKLPtn2NZFSh7jdLlEu1ilCWMobT/hvJYHlpFukY7FqXXrjmVoj0AaEkurGfJtiC2ZMIFFxCjFJdiX/w@qR/obOEKQwDxZ10qDOJzlHcxwRR72MdBAhwlDbB7G8lCQXoYyFdMqrYGopgaSB2PKjpAZDL01CQaGsB5Fp1lUZM4WRNXe/clp5S@9I3nDaU8k0d0/95XR5tWGxOvpjfznyvIHd/cZVaaTFw69gcL/Y4PqxbdqJthfXkoRsfL0/vH0zoyRPlTyeSvbtqyFrJzRPUP "Perl 5 – Try It Online"

Communities

Post History