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

fix spectral-norm benchmark

Browse Source 
svn: r10851
This commit is contained in:
Matthew Flatt 2008-07-21 20:38:51 +00:00
parent 319c7406a2
commit a3bf5c9523
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss
View File

@ -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)