- 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
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|