Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Melly's scratchpad

by Melly (Hermit)
on Mar 27, 2006 at 19:33 UTC ( [id://539507] : scratchpad . print w/replies, xml ) Need Help??

use strict; my $user = ARGV[0]; my %user_hash =
map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e** 2-$d**2+$b);$c=$d**2+$e**2>4?_:0}1..99;print$c}0..59;print$/}0..20;