From a3bf5c95234401fceb94cab73a96bce29c927b54 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 21 Jul 2008 20:38:51 +0000 Subject: [PATCH] fix spectral-norm benchmark svn: r10851 --- collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss b/collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss index 78d2812a4a..fd348b0ec7 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss @@ -27,7 +27,7 @@ ;; return element i,j of infinite matrix A (define (A i j) - (/ 1.0 (+ (* (+ i j) (/ (+ i (+ j 1)) 2)) (+ i 1)))) + (/ 1.0 (+ (* (+ i j) (/ (+ i (+ j 1)) 2.0)) (+ i 1)))) ;; multiply vector v by matrix A (define (MultiplyAv n v Av)