#noxp — Public Fediverse posts

#Perl @PerlWChallenge 373 Task 2: List Division
#noxp
```
perl -E '
for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
$n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
"1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
```

#Perl @PerlWChallenge 373 Task 2: List Division
#noxp
```
perl -E '
for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
$n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
"1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
```

#Perl @PerlWChallenge 373 Task 2: List Division
#noxp
```
perl -E '
for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
$n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
"1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
```

#Perl @PerlWChallenge 373 Task 2: List Division
#noxp
```
perl -E '
for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
$n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
"1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
```

#Perl @PerlWChallenge 373 Task 2: List Division
#noxp
```
perl -E '
for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
$n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
"1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
```

#Perl @PerlWChallenge 373 Task 1: Equal List
#noxp
```
perl -E '
for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
```

#Perl @PerlWChallenge 373 Task 1: Equal List
#noxp
```
perl -E '
for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
```

#Perl @PerlWChallenge 373 Task 1: Equal List
#noxp
```
perl -E '
for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
```

#Perl @PerlWChallenge 373 Task 1: Equal List
#noxp
```
perl -E '
for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
```

#Perl @PerlWChallenge 373 Task 1: Equal List
#noxp
```
perl -E '
for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
```

#Perl @PerlWChallenge 372 Task 2: Largest Substring
#noxp
```
perl -MList::Util=max -E '
for(@ARGV){$i=$_;say "$_ -> ", max map {$i=~m/$_(.*)$_/?length($1):-1} split "";}
' aaaaa abcdeba abbc abcaacbc laptop
```

#Perl @PerlWChallenge 372 Task 1: Rearrange Spaces
#noxp
```
perl -E '
for(@ARGV){$i=$_;@w=split" ";$l=0;$l+=length$1 while s/(\s+)//;($s,$r)=@w>1?
($l/(@w-1),$l%(@w-1)):(0,$l);$j=" "x$s;say "\"$i\" -> \"", join($j,@w)," "x$r,"\"";}
' " challenge " "coding is fun" "a b c d" \
" team pwc " " the weekly challenge "
```

#Perl @PerlWChallenge 371 Task 2: Subset Equilibrium
#noxp
```
perl -MAlgorithm::Combinatorics=subsets -MList::Util=sum -E '
for(@ARGV){@d=split" ";@i=0..@d-1;@r=map{"[@d[@$_]]"}grep{1<@$_<@d
&&sum(@$_)+@$_==sum @d[@$_]}subsets(\@i);say"$_ -> [ @r ]";}
' -- "2 1 4 3" "3 0 3 0" "5 1 1 1" "3 -1 4 2" "10 20 30 40"
```

#Perl @PerlWChallenge 371 Task 1: Missing Letter
#noxp
```
perl -E '
for(@ARGV){/^(.*)\?.*$/;$k=length($1);@x=map{ord}split"";@s=map{$x[$_+1]-$x[$_]}
map{$_%4}($k+1,$k+2);say "$_ -> ", chr($k?$x[$k-1]+$s[0]:$x[$k+1]-$s[1]);}
' ac?gi ad?jm ae?mq acf?k beg?l
```

#Perl @PerlWChallenge 370 Task 2: Scramble String
#noxp
```
perl -MList::Util=none -E '
for my($v,$w)(@ARGV){say "$v, $w -> ",c($v, $w)?"T":"F";}sub f($x,$y,$z){substr($x,$y,$z)}sub c($v,
$w){return 1if$v eq$w;my%l;++$l{$_}for split"",$v;--$l{$_}for split"",$w;return 0unless none{$_}
values %l;my$s=length$v;for my$i(1..$s-1){return 1if(c(f($v,0,$i),f($w,0,$i))&&c(f($v,$i,$s-$i),
f($w,$i,$s-$i)))||(c(f($v,$i,$s-$i),f($w,0,$s-$i))&&c(f($v,0,$i),f($w,$s-$i,$i)));}return 0;}
'
```

#Perl @PerlWChallenge 370 Task 1: Popular Word
#noxp
```
perl -MList::UtilsBy=max_by -E '
for my($p,$b)(@ARGV){my(%b,%w);++$b{$_} for split" ",$b;++$w{$_}for grep
{!$b{$_}}split/[^a-z]+/,lc $p;say "p=$p b=$b -> ", max_by{$w{$_}}keys %w;}
' \
"Bob hit a ball, the hit BALL flew far after it was hit." "hit" \
"Apple? apple! Apple, pear, orange, pear, apple, orange." "apple pear" \
"A. a, a! A. B. b. b." "b" \
"Ball.ball,ball:apple!apple.banana" "ball" ```