Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: PGA Golf, Round 1

by ChemBoy (Priest)
on May 25, 2001 at 00:27 UTC ( #83114=note: print w/replies, xml ) Need Help??


in reply to PGA Golf, Round 1

Hole 1 (18, or 16 if I can take a free drop on pop)
sub {(pop=~/\w+/g)[4]}
Hole 2 (24 in tcsh)
perl -e'\ \ \ goto\ TPC'
Which has been said before, to be sure.
Hole 3 (20)
sub {pop=~/^(.+?)\1+$/;$1}
which takes a 1-stroke penalty for the lack of /s, and one for $ instead of \Z. Oh well.
Hole 4 (19)
sub {split//,pack"H*",@_}
or
sub {map{chr hex}pop=~/../g}
for one more stroke and a warmer fuzzier feeling (since I actually got that one done in the time limit).
Hole 5 (30)
sub {$a=pop;for(@_){$a>$_ or$a=$_}$a}
I think this is optimal for Perl 5.004 (tilly can do it better with a more recent revision, I know.)
Hole 6 (44)
sub {sub F{pop=~/[aeiou]/;$&}sort{F($a)cmp F$b}@_}
Which is not as cool as some, but is the best I could do without reading the thread.
This gives me an overall score of 155 for six holes, which I think is respectable...



If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders

Replies are listed 'Best First'.
Re^2: PGA Golf, Round 1
by Anonymous Monk on Apr 17, 2007 at 22:57 UTC
    Michael Flanders,How did your book sell? Saw you in a golf course google search because I want to play my Uncle from Columbia, here in Pernambuco, Brasil. Got any tricks to win against a Columbian? Joanne www.amazoninstitute.com amazon_institute@att.net

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://83114]
help
Chatterbox?
[Discipulus]: thanks i definetively must learn such stuff.. i must come out with a killing product and after i'll just do Perl elctronic and music.. ;=)
marto has a similar idea on the 'to do' list
[Discipulus]: 65-35 joint venture marto? ;=)
[choroba]: Fibonacci at 34!
[marto]: Discipulus, what did you have in mind?
[marto]: sort of related, have you seen sonic pi
[Discipulus]: choroba less than perl -le ' $==1,(1 x $_)=~/(^)(1|11\1 )*(?{$=++})^/, print $= for 0..10'?? congrats

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2017-10-17 10:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (225 votes). Check out past polls.

    Notices?