Select Code to Download

human.pl:    103 strokes
shuffle.pl:   37 strokes
select.pl:    37 strokes
------------------------
total:       177 strokes

human.pl
::::::::::::::
@x=<>;$z=length"@x";%x=map{($x=lc)=~s/\d+/0
...
shuffle.pl
::::::::::::::
print splice@_,rand@_,1for 1..(@_=<>)

::::::::::::::
human_shoulda.pl
::::::::::::::
print map{@$_}sort{$z=0;{$z>@$a?0:lc$$a[$z]cmp lc$$b[$z++]||$$a[$z]<=>
+$$b[$z++]||redo}}map{[split/([\d\n]+)/]}<>

------------
:Wq
Not an editor command: Wq