[EMAIL PROTECTED] wrote:
>
> My name is Michael and my score is 20.
> I haven't golfed in 12 hours.
> I am hoplessly addicted to Perl Golf.
Jasper - 13
Michael - 20
Eugene - 21
Mike T - 28
Ton - 28
Yes!!! I knew I'd win one of these damn competitions sooner or later!
Jasp
--
sub r{int rand$_[0]}$"="";@j=split//,"jaspanotherperlhacker";@a=a..z;sub
b{print"@{$r[$_[0]]}\n"}do{$l=$k==@j?0:1;$k=0;print`clear\n`;for$n(reverse
0..21){$r[$n][$_]=$n?$r[$n-1][$_]:r(9)<$l?$a[r(26)]:" "for(0..20)}for(0
...@j){$r[20][$_]=$j[$_]and$k++if$r[@j][$_]=~/\w/;b($_)if$_%21}($f="@{$r
[18]}@{$r[19]}")=~s/ //g;select($t,$y,$u,.05)}while($l||$f)
