酒飲みながら円周率求める

動画の投稿テストコマンドラインで円周率求めたりgnuplotでグラフ化したりしてるだけです。あと、avconv -r 10 -s 1360x768 -f x11grab -i :0.0 -vcodec msmpeg4v2 -qscale 10 ./rec.aviで録画、そのあと3倍速とかにしたっけ？perlで実行してる奴は、多分linuxとかDarwinとか使ってる人は検証できると思う。ういん...なにそれ？プロンプト無くてもいいかなぁ。---オマケperl -le '$max=100;for(1..$max){$x=rand();$y=rand();if(($x*$x)+($y*$y)<1){$in++}};$pi=$in*4/$max;print $pi'perl -le 'for$i(0..100){$out+=((-1)**$i)*4/((2*$i)+1)};print $out'perl -le '$r=100;$r2=$r*$r;$x=0;for($y=$r;$y>0;$y--){while((($x**2)+($y**2))<($r2)){$x++};$out+=$x};$out=4*$out/$r2;print $out'

http://www.nicovideo.jp/watch/sm28515732