[]);
push @{ $cond->($_) ? $a : $b }, $_
for @$arr;
($a, $b)
}
use Data::Dumper;
warn Dumper [split_on_cond([1..10], sub($v) {$v > 6})];
$VAR1 = [ [ 7, 8, 9, 10 ], [ 1, 2, 3, 4, 5, 6 ] ]; https://PerlBanjo.com/c52b4498aa
@DRVTiny держи :) Это идеально показывает, как не читая тз можно что-нибудь сделать и в результате получить не то, что хотелось
а теперь покажи лог с гигачатом как ты заставил его написать эту программу
Уже удалил 🤷🏼♀️ мне не нравится когда там копися мусор
raku -e '(^10+1).classify(* > 6).say' {False => [1 2 3 4 5 6], True => [7 8 9 10]}
К сожалению, автору нужно было не это… ну да ладно :)
Раку... Ну вы поняли...
я не вчитывался, реально блин трудно сходу понять что там он нагородил, но, как я понял, ему надо было разбить по условию до первого невыполнения условия
почему тогда 999 2 раза встречается?
Обсуждают сегодня