#Perl @PerlWChallenge 322 String Format and Rank Array https://wlmb.github.io/2025/05/19/PWC322/
#noxp

#Perl @PerlWChallenge 322 Task 2: Rank Array
#noxp
```
perl -MList::Util=uniq -E '
$r{$_}=++$i for sort {$a<=>$b} uniq @ARGV; say "@ARGV -> @r{@ARGV}"
' 5 1 1 4 3
```

#Perl @PerlWChallenge 322 Task 1: String Format
#noxp
```
perl -E '
($s,$i)=@ARGV;($o=reverse$s)=~tr/-//d;$o=~s/(.{$i})/$1-/g;$o=~s/-$//;$o=reverse$o;say"$s, $i -> $o"
' -- -A-B-CD-E 4
```

#Perl @PerlWChallenge 321 Distinct Average and Backspace Compare https://wlmb.github.io/2025/05/12/PWC321/
#noxp

#Perl @PerlWChallenge 321 Task 2: Backspace Compare
#noxp
```
perl -E '
@x=@ARGV;($x, $y)=map{1while s/[^\#]\#//g;$_}@x;say "@ARGV -> ",$x eq $y?"True":"False";
' 'ab##' 'a#b#'
```

#Perl @PerlWChallenge 321 Task 1: Distinct Average
#noxp
```
perl -MList::Util=uniq -E '
@x=sort {$a<=>$b}@ARGV;say "@ARGV -> ", 0+uniq map {$x[$_]+$x[-1-$_]}0..@ARGV/2-1;
' 1 2 4 3 5 6
```

#DavidHasselhoff #EddieCibrian

Baywatch Nights 2x01 - Terror of the Deep

Imagine your brain just being non-existent that you _must_ refer to an #AI slop pot to do some basic task, and even though the information that the slop pot produces is either inaccurate or flat out false... you still use it as a response regardless. #AIBollocks #X #Twitter #AIfail #noxp

*in the voice of Jim Ross* New Pope! New Pope! New Pope! Baw-gawd! We have a new Pope, King! The white smoke at Sistine Chapel means we have a new pope!

#Perl @PerlWChallenge 320 Maximum Count and Sum Difference https://wlmb.github.io/2025/05/05/PWC320/
#noxp

#Perl @PerlWChallenge 320 Task 2: Sum Difference
#noxp
```
perl -MList::Util=sum0 -E '
$d=sum0 map {split ""} @ARGV; say "@ARGV -> ", sum0(@ARGV)-$d;
' 1 23 4 5
```

#Perl @PerlWChallenge 320 Task 1: Maximum Count
#noxp
```
perl -MList::Util=max -E '
for(@ARGV){$_>0&&++$p;$_<0&&++$n;} say "@ARGV -> ",max($n,$p);
' - -3 -2 -1 1 2 3
```

Someone get the rolled up newspaper and hit m.s on the nose. #noxp

#Perl @PerlWChallenge 319 Word Count and Minimum Common https://wlmb.github.io/2025/04/28/PWC319/
#noxp

#Perl @PerlWChallenge 319 Task 2: Minimum Common
#noxp
```
perl -MList::Util=min -E '
($x,$y)=map{[split " ",$_]}@ARGV;$w{$_}++for@$x;$r=(min grep{$w{$_}}@$y)//-1;say join("; ", @ARGV)," -> $r";
' "1 2 3 4" "3 4 5 6"
```

#Perl @PerlWChallenge 319 Task 1: Word Count
#noxp
```
#+begin_src bash :results output
perl -E '
$v="[aeiou]"; say "@ARGV -> ", 0+grep{/(^$v)|($v$)/}@ARGV
' unicode xml raku perl
```

Ayyyy, I'm finally in the #nicolethefediversechick club #noxp

#Perl @PerlWChallenge 318 Group Position and Reverse Equals https://wlmb.github.io/2025/04/21/PWC318/
#noxp