note
tilly
I had similar solutions. But I improved on hole 3 to 20:
<code>
sub hole{map/^(.*?)\1+\z/s,@_}
</code>
and my solution for hole 5 was also 29 but somewhat different.
<code>
sub hole{$,=pop;$,=$,<$_?$_:$,for@_;$,}
</code>
However we can improve hole 5 to 28 taking your solution and applying my trick to it.:
<code>
sub hole{$,=pop;$_<$,or$,=$_ for@_;$,}
</code><P>
<B>UPDATE</B><BR>
Oops. My test code put hole 3 in the wrong context. My bad.
82878
83032