[BACK]Return to bench.gp CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari / examples
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, 4 months ago) by maekawa
Branch: PARI_GP
CVS Tags: maekawa-ipv6, VERSION_2_0_17_BETA, RELEASE_20000124, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2
Changes since 1.1: +0 -0 lines 

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