samples/speed/speed.io

   1 #!/usr/bin/env io
   2
   3
   4 oneMillion := 1000000
   5
   6 results := List clone
   7
   8 Tester := Object clone do(
   9     foo := method(1)
  10
  11     beginTimer := method(
  12         self t1 := Date clone now
  13     )
  14
  15     endTimer := method(s,
  16         mps := 1 / Date clone now secondsSince(t1)
  17         //write(t1 asString, " -> ", Date clone now asString , "\n")
  18
  19         write("Io ", s, " := ", mps asString(0,2) , "\n")
  20     )
  21
  22     testSlot := method(
  23         beginTimer
  24         self x := 1
  25         (oneMillion/8) repeat(
  26            x; x; x; x;
  27            x; x; x; x;
  28         )
  29         endTimer("slotAccesses      ")
  30     )
  31
  32         // t := method(x := 1; loop(x = 1)); t
  33
  34     testSetSlot := method(
  35         beginTimer
  36         self x := 1
  37         updateSlot := getSlot("updateSlot")
  38         (oneMillion/8) repeat(
  39            x = 1; x = 1; x = 1; x = 1;
  40            x = 1; x = 1; x = 1; x = 1;
  41         )
  42         endTimer("slotSets          ")
  43     )
  44
  45     testBlock := method(
  46         beginTimer
  47         (oneMillion/8) repeat(
  48            foo; foo; foo; foo;
  49            foo; foo; foo; foo;
  50         )
  51         endTimer("blockActivations  ")
  52     )
  53
  54     testInstantiations := method(
  55         beginTimer
  56         (oneMillion/8) repeat(
  57             Tester clone; Tester clone; Tester clone; Tester clone;
  58             Tester clone; Tester clone; Tester clone; Tester clone;
  59         )
  60         endTimer("instantiations    ")
  61     )
  62
  63     testLocals := method(
  64         beginTimer
  65         v := 1
  66         (oneMillion/8) repeat(
  67             v; v; v; v;
  68             v; v; v; v;
  69         )
  70         endTimer("localAccesses     ")
  71     )
  72
  73     testSetLocals := method(
  74         beginTimer
  75         //updateSlot := getSlot("updateSlot")
  76         v := "1"
  77         (oneMillion/8) repeat(
  78             v = 1; v = 2; v = 3; v = 4;
  79             v = 1; v = 2; v = 3; v = 4;
  80         )
  81 /*
  82         (oneMillion/8) repeat(
  83             v = 1; v = 2; v = 3; v = 4;
  84             v = 1; v = 2; v = 3; v = 4;
  85         )
  86 */
  87         endTimer("localSets         ")
  88     )
  89
  90     testCFunc := method(
  91         beginTimer
  92         v := self getSlot("thisContext")
  93         (oneMillion/8) repeat(
  94             v; v; v; v;
  95             v; v; v; v;
  96         )
  97         endTimer("cfuncActivations  ")
  98     )
  99
 100     test := method(
 101         write("\n")
 102         testLocals
 103         testSetLocals
 104         write("\n")
 105         testSlot
 106         testSetSlot
 107         write("\n")
 108         testBlock
 109         testInstantiations
 110         testCFunc
 111         write("Io version := ", System version)
 112         write("\n")
 113         write("// values in millions per second\n")
 114     )
 115 )
 116
 117 //1000 repeat(Tester testSetLocals)
 118 Tester test
 119