Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: PGA Golf, Round 1 - Results

by mtve (Deacon)
on Sep 27, 2002 at 07:47 UTC ( [id://201137] : note . print w/replies, xml ) Need Help??


in reply to PGA Golf, Round 1 - Results

Hole 6 can be improved by two chars:

sub hole6{sort{$&x$a=~'[aeiuo]'cmp$&x$b=~//}@_}

or, alternatively:

sub hole6{sort{$a!~/[aeiuo]/.$&cmp$b!~//.$&}@_}