testsuite/tests/dph/words/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


import WordsVect
import Data.Array.Parallel
import qualified Data.Array.Parallel.Prelude.Word8      as W
import qualified Data.Array.Parallel.PArray             as P
import qualified Data.Array.Parallel.Unlifted           as U
import Data.Char

main
 = do   -- take the filename containing the words as the first arg
        let str =  "When   I   look  into  the   looking glass I'm always sure to see"
                ++ " no matter how I dodge         about, me looking      back at me."

        -- convert string to a PArray
        let paStr   :: PArray W.Word8
            paStr = P.fromUArray $ U.map W.fromInt $ U.fromList $ map ord str


        -- break the string into words then flatten it back
        let str' :: String
            str' = map chr
                 $ map fromIntegral
                 $ P.toList
                 $ wordsOfPArray paStr


        -- count the number of words in the string, using the vectorised program
        let wordCountVect = fromIntegral $ wordCountOfPArray paStr

        -- count the number of words with the ye'olde list way
        let wordCountList = length $ words str

        --
        putStr  $  show str' ++ "\n"
                ++ "word count vect  = " ++ show wordCountVect ++ "\n"
                ++ "word count lists = " ++ show wordCountList ++ "\n"