このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1260532772/557
# [1] 授業単元: 情報数学
# [2] 問題文(含コード&リンク):
# オイラー級数を用いて、πの近似値を求めよ。 

オイラー級数を用いて、πの近似値を求める(_円周率) :-
  findsum(U,(for(1,N,100000),U is 1 / (N * N)),Sum),
  _円周率 is sqrt(6 * Sum).