何故か円周率ネタの続き。 簡単なのだったらワンライナーで書けるかなーと思って。 $ perl -le '(rand)**2+(rand)**2<1&&$x++for 1..($n=100000000);print$x*4/$n' 3.14167476この回数で実行に１分くらいかかって精度は３〜４桁程度。ふむー 追記 収束してい…