[BACK]Return to bench.gp CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari-2.2 / examples

File: [local] / OpenXM_contrib / pari-2.2 / examples / Attic / bench.gp (download)

Revision 1.1, Tue Oct 2 11:16:59 2001 UTC (22 years, 8 months ago) by noro
Branch: MAIN

Initial revision

{
  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))
    )
  )
}