develooper Front page | perl.golf | Postings from July 2002

Improvement in post-mortem

Thread Next
From:
Michael W Thelen
Date:
July 19, 2002 15:38
Subject:
Improvement in post-mortem
Message ID:
20020719163749.Q2050@attensity.com
Hi Terje,

I believe I've found a one-stroke improvement for both mtve and dave:

59 -n0 for$a(A..Z){$;[-$b+tell].="$a $b\n"if$b=s/$a//ig}print@;

(my test script scores it at 59, though it's one stroke better than the
59-stroke solutions posted)

By the way, I came up with this in the post-mortem, not on my own. :-)

-- 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``'

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About