suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adjusted benchmark sizes.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-06-17 15:13:39 -04:00
parent 343e9d23b4
commit 31f285d23c
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
collects/tests/racket/benchmarks/shootout/run.rkt
View File

@ -3,42 +3,42 @@
racket/port)
(define input-map
`(
("ackermann" "11")
("ary" "300000")
("binarytrees" "16")
("chameneos" "100000")
("ackermann" "12")
("ary" "600000")
("binarytrees" "17")
("chameneos" "120000")
("cheapconcurrency" "2000")
("echo" "200000")
("except" "2000000")
("fannkuch" "10")
("fannkuch-redux" "10")
("fasta" "1000000")
("fibo" "40")
("fibo" "42")
("hash" "2000000")
("hash2" "750")
("heapsort" "1500000")
("hash2" "1000")
("heapsort" "2500000")
("hello" "")
("lists" "18")
("lists" "2000")
("mandelbrot" "3000")
("mandelbrot-generic" "3000")
("mandelbrot-unsafe" "3000")
("matrix" "10000")
("meteor" "10000")
("matrix" "12000")
("meteor" "25000")
("moments" #f ,(lambda () (mk-moments-input)))
("nbody" "2000000")
("nbody-generic" "2000000")
("nbody-vec" "2000000")
("nbody-vec-generic" "2000000")
("nbody-vec-unsafe" "2000000")
("nestedloop" "30")
("nbody" "3000000")
("nbody-generic" "3000000")
("nbody-vec" "3000000")
("nbody-vec-generic" "3000000")
("nbody-vec-unsafe" "3000000")
("nestedloop" "32")
("nothing" "")
("nsieve" "12")
("nsievebits" "12")
("partialsums" "2500000")
("partialsums" "3000000")
("pidigits" "4000")
("pidigits1" "4000")
("random" "40000000")
("recursive" "11")
("recursive" "12")
("regexmatch")
("regexpdna" #f ,(lambda () (mk-regexpdna-input)))
("reversecomplement" #f ,(lambda () (mk-revcomp-input)))
@ -46,9 +46,9 @@
("reversefile" #f ,(lambda () (mk-reversefile-input)))
("sieve" "25000")
("spellcheck")
("spectralnorm" "5500")
("spectralnorm-generic" "5500")
("spectralnorm-unsafe" "5500")
("spectralnorm" "1000")
("spectralnorm-generic" "1000")
("spectralnorm-unsafe" "1000")
("strcat" "50000000")
("sumcol" #f ,(lambda () (mk-sumcol-input)))
("thread-ring" "1000000")
@ -78,10 +78,10 @@
(mk-fasta "5000000" "5m"))
(define (mk-knuc-input)
(mk-fasta "1000000" "1m"))
(mk-fasta "500000" "500k"))
(define (mk-regexpdna-input)
(mk-fasta "5000000" "5m"))
(mk-fasta "1000000" "1m"))
(define (mk-sumcol n suffix)
(let ([f (build-path (find-system-path 'temp-dir) (string-append "sumcol-" suffix))])