![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / pari / examples / Attic / bench.gp (download)
Revision 1.1.1.1 (vendor branch), Sun Jan 9 17:35:30 2000 UTC (24 years, 8 months ago) by maekawa
Import PARI/GP 2.0.17 beta. |
{ u=v=p=q=1; for (k=1, 1000, w = u+v; u = v; v = w; p *= w; q = lcm(q,w); if (k%50 == 0, print(k " " log(p)/log(q)) ) ) }