develooper Front page | perl.fwp | Postings from March 2002

Re: TPR1 post-mortem

Thread Previous | Thread Next
From:
Stephen Turner
Date:
March 11, 2002 15:12
Subject:
Re: TPR1 post-mortem
Message ID:
Pine.LNX.3.96.1020311230808.30943A-100000@gentoo
On Mon, 11 Mar 2002, Ton Hospel wrote:
> 
> Try .$x*111%10 instead
> 

Ah yes, of course, thanks. Well, that gives me this 63 stroke solution.

print$_=pop,$/;s/./$&*111%10).(.$&/g;/\(.*\)/&&exec$^X,$0,eval$&

I don't think I can do much better with this approach, but it's nice to
think of a completely different method.

-- 
Stephen Turner, Cambridge, UK    http://homepage.ntlworld.com/adelie/stephen/
"This is Henman's 8th Wimbledon, and he's only lost 7 matches." BBC, 2/Jul/01


Thread Previous | 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