deepSeqArray массива с одинарной точностью - PullRequest
Новая
       17

deepSeqArray массива с одинарной точностью

3 голосов
/ 11 апреля 2011

У меня есть вектор Float элементов, созданных функцией getVectorFloat. Для того, чтобы сделать некоторые измерения, мне нужно использовать deepSeqArray. Однако мне не удается это сделать.

Вот мой пример: 

import Data.Array.Repa as R
import Data.Array.Repa.Algorithms.Randomish

len :: Int
len = 3000000

main = do
    ws <- getVectorFloat len
    ws `deepSeqArray` return()

getVectorFloat :: Int -> Array DIM1 Float
getVectorFloat len = R.map (toFloat) (getVectorDouble len)

toFloat :: Double -> Float
toFloat a = realToFrac a

getVectorDouble :: Int -> Array DIM1 Double
getVectorDouble len = randomishDoubleArray (Z :. len) (-100) 100 1

И ошибка, которую я получаю: 

haskell.hs:9:9:
    Couldn't match expected type `Array sh0 a0'
                with actual type `Float'
    In the first argument of `deepSeqArray', namely `ws'
    In the expression: ws `deepSeqArray` return ()
    In the expression:
      do { ws <- getVectorFloat len;
             ws `deepSeqArray` return () }

Я не понимаю, почему Array sh0 a0 нельзя сопоставить с Array Dim1 Float.

Спасибо за вашу помощь

1 Ответ

1 голос
/ 11 апреля 2011

Проблема возникает из-за того, что не делает то, что вы думаете.Когда вы делаете ws <- getVectorFloat len

ws не устанавливается с массивом, а вызывается для каждого его значения.то есть нотация do для массива аналогична карте.Рассмотрим следующий пример 

prelude > do x <- [1,2,3]; return (x*10)
[10, 20, 30]

или более забавный; -) 

Prelude> do <-[1,2,3];y<-[10,20,30]; return(x,y)                                                                                                                                         
[(1,10),(1,20),(1,30),(2,10),(2,20),(2,30),(3,10),(3,20),(3,30)]

Так что я не уверен, что вы используете do правильно.

...