#Perl @PerlWChallenge 314 Task 2: Sort Column#noxp```perl -MPDL -E '$s=($p=pdl(map{[map{ord}split ""]}@ARGV)->mv(1,0))->qsort;say "@ARGV -> ",($p!=$s)->orover->sum;' cba daf ghi```
Mastodon is the best way to keep up with what's happening.
Follow anyone across the fediverse and see it all in chronological order. No algorithms, ads, or clickbait in sight.