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