sub gcd{my($u,$v)=@_;($u,$v)=($v,$u%$v)while$v;$u} ($a,$b)=map abs,glob<>; if($a==0&&$b==0){ print 1/4; exit; } if($a==0){ $a=$b; $b=0; } if($b==0){ for($i=0;$i<10;++$i){ $z+=(2+$i*$a)**-(2+$i*$a); } print $z; exit; } $g=gcd($a,$b); #$o=$a/$g&$b/$g&1; $o=($a+($g>>1))/$g&($b+($g>>1))/$g&1; for($i=0;$i<10;++$i){ for($j=0;$j<10;++$j){ if($o?!(($i^$j)&1):1){ $z+=(2+($i+$j)*$g)**-(2+($i+$j)*$g); } } } print $z;