In article <[EMAIL PROTECTED]>,
        "Terje Kristensen" <[EMAIL PROTECTED]> writes:
> I was by a little study of Eugene's solution i came up with this tho.
> 
> -nl $h{$a}{$'}=/ /;$h{$'}{$`}++if$`ne$'}{sub 
>z{map$y{$_}||=1/!$u{$_}+++z($_)+print,keys%{$h{+pop}}}z
> 
> thats 100 .. wish i could get under 100 tho.
> 
Wish granted:
95 -nl $h{$a}{$'}=/ /;$h{$'}{$`}++if$`ne$'}{sub 
z{map$y{$_}||=1/!$u{$_}+++&z+print,keys%{$h{$_}}}z

(gaining strokes by passing args globally is known from the christmas
ircnet golf, http://www.xs4all.nl/~thospel/challenge.html)

Reply via email to