diff --git a/collects/tests/racket/benchmarks/shootout/run.rkt b/collects/tests/racket/benchmarks/shootout/run.rkt index 9d02cae6d8..d33ea76ede 100644 --- a/collects/tests/racket/benchmarks/shootout/run.rkt +++ b/collects/tests/racket/benchmarks/shootout/run.rkt @@ -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))])