2 BenchmarkTests define: #Shootout &parents: {TestCase}.
4 "The Computer Language Shootout benchmarks
5 [http://shootout.alioth.debian.org]."
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'.
21 t@(BenchmarkTests Shootout traits) ackermann
22 "Integer recursive function performance."
27 t@(BenchmarkTests Shootout traits) binarytrees
28 "Allocate and deallocate many binary trees."
30 "TODO: Causes following tests to hit the max heap limit."
34 t@(BenchmarkTests Shootout traits) fannkuch
35 "Indexed-access to tiny integer-sequence."
40 t@(BenchmarkTests Shootout traits) harmonic
41 "Calculate the partial sum of the Harmonic series."
46 t@(BenchmarkTests Shootout traits) mandelbrot
47 "Generate Mandelbrot set portable bitmap file."
52 t@(BenchmarkTests Shootout traits) nbody
53 "Double-precision N-body simulation."
58 t@(BenchmarkTests Shootout traits) nsieve
59 "Indexed access to a boolean sequence."
64 t@(BenchmarkTests Shootout traits) nsievebits
65 "Indexed access to a boolean sequence."
70 t@(BenchmarkTests Shootout traits) pidigits
71 "Streaming arbitrary-precision arithmetic."
73 "TODO: should be 1000!"
77 t@(BenchmarkTests Shootout traits) random
78 "Generate random floating-point numbers."
80 RandomNumber to: 100 repeat: 900000
83 t@(BenchmarkTests Shootout traits) spectralnorm
84 "Eigenvalue using the power method."
89 t@(BenchmarkTests Shootout traits) sumfile
90 "Read lines, parse and sum integers."
92 "TODO: The file should be 8000 times as large!"
93 'tests/benchmark/sumfile.in' sumfile
96 t@(BenchmarkTests Shootout traits) takfp
97 "Floating-point recursive function performance."
102 tc@(BenchmarkTests Shootout traits) suite
103 [tc suiteForSelectors: {