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

Fix benchmark to reflect changes to flvector ops types.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-06 18:32:47 -04:00
parent 2e6b518c95
commit 4947090191
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/racket/benchmarks/shootout/typed/spectralnorm.rktl
View File

@ -16,7 +16,7 @@
(for: ([i : Integer (in-range N)])
(unsafe-flvector-set!
y i
(let L ([a 0.0] [j 0])
(let: L : Float ([a : Float 0.0] [j : Integer 0])
(if (unsafe-fx= j N) a
(L (unsafe-fl+ a (unsafe-fl* (unsafe-flvector-ref x j) (A i j)))
(unsafe-fx+ j 1)))))))]
@ -25,7 +25,7 @@
(for: ([i : Integer (in-range N)])
(unsafe-flvector-set!
y i
(let L ([a 0.0] [j 0])
(let: L : Float ([a : Float 0.0] [j : Integer 0])
(if (unsafe-fx= j N) a
(L (unsafe-fl+ a (unsafe-fl* (unsafe-flvector-ref x j) (A j i)))
(unsafe-fx+ j 1)))))))]