Select Code to Download

use Curses;use integer;@S=split(//,'Just Another Perl Hacker,');
initscr;$C=(COLS()-@S)/2;%j=map{(LINES()/2)."/$_"=>1}($C..$C+@S-1);
...
while(my($x,$y,$l)=(&$x,&$y,(keys%r==@S)?' ':chr(&$l))){
if($j{"$x/$y"}){next if($r{$y});$r{$y}++ if($S[$y-$C] eq $l)}
addch($x,$y,$l);refresh;}sub mr{my@a=@_;sub{$a[rand @a]}}

use Curses;@S=split(//,'Just Another Perl Hacker,');initscr;$C=int((
&COLS-@S)/2);%j=map{int(&LINES/2)."/$_"=>1}($C..$C+@S-1);($X,$Y,$L)=
map{my$n=$_;sub{int rand $n}}(&LINES,&COLS,95);while(($x,$y,$l)=(&$X,
&$Y,chr(32+(keys%r==@S?0:&$L)))){if($j{"$x/$y"}){next if($r{$y});
$r{$y}++if($S[$y-$C] eq $l)}addch($x,$y,$l);refresh}