------
-- Ent�te : Alma
-- Unit�  : MesurePerf.java
-- Date   : 2004-01-08
-- Cible  : Eiffel (e)
-- Auteur : Guillaume Desnoix
-- Mel    : guillaume@desnoix.com
-- Produit: Alma, (c)1998-2003 Guillaume Desnoix
-- Version: 0.39
-- Site   : http://www.memoire.com/guillaume-desnoix/alma/
------

class MESUREPERF
inherit
  OBJECT
feature {ANY} 
  main(args: ARRAY[STRING]) is
  local
    r: DOUBLE;
    t: DOUBLE;
    tCPU: LONG;
    nbStep: LONG
  do
    nbStep := 1000000000;
    tCPU := System.currentTimeMillis;
    t := 1.0;
    r := 0.9999999999999999999999999999999999;
    if args.length>0
      then
        nbStep := Integer.parseInt(args[0]);
        System.out.println(args[0]+" demandees")
      end;
    from i := 0 until i<nbStep
    loop
      t := t*r      i++    end
;
    tCPU := -tCPU+System.currentTimeMillis;
    System.out.println(nbStep+" multiplications en "+tCPU+" millisecondes .")
  end

end