diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-18 22:44:19 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-20 16:22:07 +0200 |
| commit | 3dc1202546e63b50f828a34474717b1ddcbed5c7 (patch) | |
| tree | 745fde8e9712c6d0b0507d9ae4988736c678abdb /testsuite/tests/dph/dotp/Main.hs | |
| parent | cf6e65693588cd9d40c895279f2e53d3d25a2c58 (diff) | |
| download | haskell-3dc1202546e63b50f828a34474717b1ddcbed5c7.tar.gz | |
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/dph/dotp/Main.hs')
| -rw-r--r-- | testsuite/tests/dph/dotp/Main.hs | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/testsuite/tests/dph/dotp/Main.hs b/testsuite/tests/dph/dotp/Main.hs index c6d4f1e91c..04eb407fc7 100644 --- a/testsuite/tests/dph/dotp/Main.hs +++ b/testsuite/tests/dph/dotp/Main.hs @@ -25,7 +25,7 @@ generateVectorU n = k = 1000 generateVector :: Int -> IO (PArray Double) -generateVector n +generateVector n = do vec <- generateVectorU n return $ P.fromUArray vec @@ -37,18 +37,18 @@ generateVectors n = w <- generateVector n return (v,w) -main - = do -- compute dot product with NDP - vectors <- generateVectors 100000 - let resultViaNDP = (uncurry dotp) vectors - - -- compute with lists - let (aVecX, aVecY) = vectors - let vecX = P.toList aVecX - let vecY = P.toList aVecY - let resultViaList = sum $ zipWith (*) vecX vecY - - -- ignore wibbles in low order bits - putStr $ (take 12 $ show resultViaNDP) ++ "\n" - putStr $ (take 12 $ show resultViaList) ++ "\n" - +main + = do -- compute dot product with NDP + vectors <- generateVectors 100000 + let resultViaNDP = (uncurry dotp) vectors + + -- compute with lists + let (aVecX, aVecY) = vectors + let vecX = P.toList aVecX + let vecY = P.toList aVecY + let resultViaList = sum $ zipWith (*) vecX vecY + + -- ignore wibbles in low order bits + putStr $ (take 12 $ show resultViaNDP) ++ "\n" + putStr $ (take 12 $ show resultViaList) ++ "\n" + |