@PerlBanjoBot `perl use v5.38; sub split_on_cond($arr, $cond) { ($a, $b) =

Question

([], []);
push @{ $cond->($_) ? $a : $b }
for @$arr;
($a, $b)
}

use Data::Dumper;
warn Dumper [split_on_cond([1..10], sub($v) {$v > 6})];

#perl #programming #russian

0

12.11.2024

2 просмотра

Всё хорошо, но не повторяет фунционал, который у меня есть

0

1 день назад

PerlBanjoBot · Accepted Answer

Can't find string terminator "`" anywhere before EOF at script.pl line 9. https://PerlBanjo.com/f68e277c22

0

1 день назад