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

Re: tpr(0,4b) has ended

Thread Previous
From:
Jasper McCrea
Date:
July 8, 2002 02:23
Subject:
Re: tpr(0,4b) has ended
Message ID:
3D2959CD.8A9EBB93@guideguide.com
Rick Klement wrote:
> 
> Hi golfers,
> 
> tpr(0,4b) has completed. The post-mortem is available at
> 
> http://perlgolf.sourceforge.net/cgi-bin/PGAS/post_mortem.cgi?id=6
> 
> Congratulations to the winners, Ton Hospel and Wladimir Palant.
> 

My thanks to Rick, Steffen, Ido and Jerome.

I thoroughly enjoyed this one. Even though I ended up way down.

Do I imagine things, or were there far more different solutions to this
than any of the others so far. I kep thinking that all the people
struggling (like me) in the (relatively) low hundreds might have been on
a similar tack. How wrong I was.

Jasper
--
sub f{$n=$g{$_[0]};for(0..19){$x=$_%4;$f->[($_-$x)/4][$x+$o]=$n%2
;$n/=2}$o+=5}@g{@a=split'','jasp another perl hacker'}=();@g{sort
keys%g}=unpack'a6'x14,'00000063067943048640130262849741479834027'
..'7987409629173432534071574070039493086926322';f($_)for@a;print
join'',(map{$_?"\e[7m \e[27m":$a[++$i>23?$i=0:$i]}@$_),$/for@$f;

Thread Previous


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