diff options
| author | Alberto Ruiz <aruiz@um.es> | 2008-11-30 12:40:37 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2008-11-30 12:40:37 +0000 |
| commit | 6be354c6acbf1e07cb32bbedf3cddddd9798d470 (patch) | |
| tree | 8033fd4c5845b39e8d6acbfe8e0b51beb883b9b3 /examples/benchmarks.hs | |
| parent | 221401e14043d93934068418bcbf1fcc675ebd16 (diff) | |
QuickCheck<2, ifdef i386 finit, and credit to Simon Beaumont
Diffstat (limited to 'examples/benchmarks.hs')
| -rw-r--r-- | examples/benchmarks.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/benchmarks.hs b/examples/benchmarks.hs index e210280..4fd7a56 100644 --- a/examples/benchmarks.hs +++ b/examples/benchmarks.hs | |||
| @@ -55,6 +55,9 @@ bench1 = do | |||
| 55 | time $ print $ vectorMax t | 55 | time $ print $ vectorMax t |
| 56 | time $ print $ sqrt $ foldVector (\v s -> v*v+s) 0 t | 56 | time $ print $ sqrt $ foldVector (\v s -> v*v+s) 0 t |
| 57 | time $ print $ pnorm PNorm2 t | 57 | time $ print $ pnorm PNorm2 t |
| 58 | putStrLn "scale C/BLAS vs H:" | ||
| 59 | time $ print $ mapVector (*2) t @> 7 | ||
| 60 | time $ print $ (2 * t) @> 7 | ||
| 58 | 61 | ||
| 59 | sumVB v = constant 1 (dim v) <.> v | 62 | sumVB v = constant 1 (dim v) <.> v |
| 60 | 63 | ||