On Tue, Jul 16, 2002 at 07:44:41AM -0700, Rick Klement wrote: > Yep, I make it 25 strokes also. > > 25 -p $h{$_}=""}for(sort%h){ > > Mind if I play through? > > 22 @h{<>}="";print sort%h
I'm not entirely sure why this works, but here's a 21: 21 print sort@h{<>}=0,%h -- Mike -- Michael W. Thelen eval unpack u,'M*"1C/2<P,BDN-"`U+C`A(RLG*3U^>2\A+48O82UZ+SME=F%L*"1C+B(G=2HGM+"<Z,D<U4SU<(B%!.T9=5#HF-5(H)2%%/$907$`Z)B5#.E8U4BM@2&`G+EPD$+R(I.P``'