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;
