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