http://www.perlmonks.org?node_id=83063


in reply to Re: PGA Golf, Round 1
in thread PGA Golf, Round 1

Fixes/optimizations:
# 4 -- 19 chars sub g4 { split//,pack"H*",@_ } # 6 -- 47 chars sub g6 { sort{($a=~($_='([aeiou])'))[0]cmp($b=~$_)[0]}@_ }


japhy -- Perl and Regex Hacker