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)