Re: PGA Golf, Round 1

[Anonymous Monk]

# 1 -- 16 chars
sub g1 { (pop=~/\w+/g)[4] }


# 2 -- 19 chars (23 with newlines)
perl -e'goto\
\
\
\
TPC'


# 3 -- 23 chars
# note: using $ instead of \z is *wrong*
# note: using . without /s is *wrong*
sub g3 { pop=~/^(.*?)\1+\z/s&&$1 }


# 4 -- 12 chars
sub g4 { pack"H*",pop }


# 5 -- 29 chars
sub g5 { $x=pop;$x<$_&&($x=$_)for@_;$x }


# 6 -- 49 chars
sub g6 { sort{($a=~/[aeiou]/g)[0]cmp($b=~/[aeiou]/g)[0]}@_ }

japhy -- Perl and Regex Hacker

[japhy]

Um, that is my code. My cookie expired or something. Anyway, direct any ++'s here, please.

japhy -- Perl and Regex Hacker

[japhy]

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

[tilly]

I had similar solutions. But I improved on hole 3 to 20:

sub hole{map/^(.*?)\1+\z/s,@_}

and my solution for hole 5 was also 29 but somewhat different.

sub hole{$,=pop;$,=$,<$_?$_:$,for@_;$,}

However we can improve hole 5 to 28 taking your solution and applying my trick to it.:

sub hole{$,=pop;$_<$,or$,=$_ for@_;$,}

UPDATE
Oops. My test code put hole 3 in the wrong context. My bad.