tests/benchmark/shootout.slate

   1
   2 BenchmarkTests define: #Shootout &parents: {TestCase}.
   3
   4 "The Computer Language Shootout benchmarks
   5    [http://shootout.alioth.debian.org]."
   6
   7 load: 'tests/benchmark/ackermann.slate'.
   8 load: 'tests/benchmark/binarytrees.slate'.
   9 load: 'tests/benchmark/fannkuch.slate'.
  10 load: 'tests/benchmark/harmonic.slate'.
  11 load: 'tests/benchmark/mandelbrot.slate'.
  12 load: 'tests/benchmark/nbody.slate'.
  13 load: 'tests/benchmark/nsieve.slate'.
  14 load: 'tests/benchmark/nsievebits.slate'.
  15 load: 'tests/benchmark/pidigits.slate'.
  16 load: 'tests/benchmark/random.slate'.
  17 load: 'tests/benchmark/spectralnorm.slate'.
  18 load: 'tests/benchmark/sumfile.slate'.
  19 load: 'tests/benchmark/takfp.slate'.
  20
  21 t@(BenchmarkTests Shootout traits) ackermann
  22 "Integer recursive function performance."
  23 [
  24   3 ackermann: 9
  25 ].
  26
  27 t@(BenchmarkTests Shootout traits) binarytrees
  28 "Allocate and deallocate many binary trees."
  29 [
  30   "TODO: Causes following tests to hit the max heap limit."
  31   "16 binaryTrees"
  32 ].
  33
  34 t@(BenchmarkTests Shootout traits) fannkuch
  35 "Indexed-access to tiny integer-sequence."
  36 [
  37   9 fannkuch
  38 ].
  39
  40 t@(BenchmarkTests Shootout traits) harmonic
  41 "Calculate the partial sum of the Harmonic series."
  42 [
  43   10000000 partialSum
  44 ].
  45
  46 t@(BenchmarkTests Shootout traits) mandelbrot
  47 "Generate Mandelbrot set portable bitmap file."
  48 [
  49   400 mandelbrot
  50 ].
  51
  52 t@(BenchmarkTests Shootout traits) nbody
  53 "Double-precision N-body simulation."
  54 [
  55   10000 nbodies
  56 ].
  57
  58 t@(BenchmarkTests Shootout traits) nsieve
  59 "Indexed access to a boolean sequence."
  60 [
  61   9 primes
  62 ].
  63
  64 t@(BenchmarkTests Shootout traits) nsievebits
  65 "Indexed access to a boolean sequence."
  66 [
  67   9 bitprimes
  68 ].
  69
  70 t@(BenchmarkTests Shootout traits) pidigits
  71 "Streaming arbitrary-precision arithmetic."
  72 [
  73   "TODO: should be 1000!"
  74   27 pidigits
  75 ].
  76
  77 t@(BenchmarkTests Shootout traits) random
  78 "Generate random floating-point numbers."
  79 [
  80   RandomNumber to: 100 repeat: 900000
  81 ].
  82
  83 t@(BenchmarkTests Shootout traits) spectralnorm
  84 "Eigenvalue using the power method."
  85 [
  86   500 spectralnorm
  87 ].
  88
  89 t@(BenchmarkTests Shootout traits) sumfile
  90 "Read lines, parse and sum integers."
  91 [
  92   "TODO: The file should be 8000 times as large!"
  93   'tests/benchmark/sumfile.in' sumfile
  94 ].
  95
  96 t@(BenchmarkTests Shootout traits) takfp
  97 "Floating-point recursive function performance."
  98 [
  99   10 takfp
 100 ].
 101
 102 tc@(BenchmarkTests Shootout traits) suite
 103 [tc suiteForSelectors: {
 104   #ackermann.
 105   #binarytrees.
 106   #fannkuch.
 107   #harmonic.
 108   #mandelbrot.
 109   #nbody.
 110   #nsieve.
 111   #nsievebits.
 112   #pidigits.
 113   #random.
 114   #spectralnorm.
 115   #sumfile.
 116   #takfp.
 117 }].