Select Code to Download

@_=map(1/$_,map($_**2,1...1000000));for $a(@_){$s+=$_[$i++];}$s*=6;pri
+nt sqrt($s);

for(@_=map(6/$_,map($_**2,1..1000000))){$s+=$_[$i++]}print sqrt($s);