Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: PGA Golf, Round 1

by tadman (Prior)
on May 25, 2001 at 16:11 UTC ( #83272=note: print w/ replies, xml ) Need Help??


in reply to PGA Golf, Round 1

My submissions:

Hole 1 (16 characters)

sub f{ (pop=~/w+/g)[4] }
Hole 2 (31 characters) perl -e# -e# -e# -e# -egoto+TPC
Hole 3 (46 characters)
If only alphanumeric data will be processed:
sub f{ $p=$_=pop;1while(!/^($p){2,}$/&&$p=~s/.$//);$p }
If required to support non-alpha, or unusual characters in the input data (requires \Q...\E), then 51 characters:
sub f{ $p=$_=pop;1while(!/^(\Q$p\E){2,}$/&&$p=~s/.$//s);$p }
Hole 4 (24 characters)
sub f{ map{chr hex$_}pop=~/../g }
Hole 5 (30 characters)
sub f{ $x=pop;map{$_>$x?$x=$_:0}@_;$x }
Hole 6 (39 characters)
sub f{ grep{s/.//}sort map{/[aeiou]/;"$&$_"}@_ }
Update:
Corrected hole 4 (returned string, wanted list).
Reduced hole 6 (@x=@_ to @_, used $& instead of memorizing)
Removed first 'version' of hole #5, which didn't handle negative numbers, leaving the longer second version.


Comment on Re: PGA Golf, Round 1
Select or Download Code
Re: Re: PGA Golf, Round 1
by suaveant (Parson) on May 25, 2001 at 17:51 UTC
    changing "$&$_" to $&.$_ saves you one stroke... 38 chars
                    - Ant

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://83272]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-10-20 09:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (75 votes), past polls