En op 14 juli 2002 sprak /-\:
> The Speedy-Gonzalez Hall-of-Fame
> --------------------------------
> ...
> 2. Terje K 0:00.33 (112.56)
In trying to understand why:
112.56 Terje K Sun Jul 7 04:23:55 2002 -nl $h{_}{$'}=/
/;$h{$'}{$`}=1if$`ne$'}{sub z{$u{$_}++&&die,$y{$_}||=z($_)+print,$u{$_}--for
keys%{$h{+pop}}}z _
is so fast, I noticed it is not quite correct, failing on:
a _
_ c
An underscore, being in the range !-~, is a valid node character.
Mr referees, am I interpreting the rules correctly?
Do you still care anymore? ;)
However, Terje's 113-stroke solution:
113.56 Terje K Sat Jul 6 18:42:38 2002 -nl $h{$;}{$'}=/
/;$h{$'}{$`}=1if$`ne$'}{sub
z{$u{$_}++&&die,$y{$_}++||z($_)&print,$u{$_}--for keys%{$h{+pop}}}z$
seems OK because it uses $; (\034), which is outside the !-~ range.
And it can be easily improved to 110:
-nl $h{$;}{$'}=/ /;$h{$'}{$`}=1if$`ne$'}{sub
z{1/!$u{$_}++,$y{$_}||=z($_)+print,$u{$_}--for keys%{$h{+pop}}}z$
Curiously, using '_' instead of $; gained Terje a whopping 0 strokes. ;)
/-\
