Phép nhân ma trận song song

Question

Tôi đã viết phép nhân song song đơn giản bằng cách sử dụng par và pseq.

Sau khi chạy chương trình này, không có tia lửa nào được chuyển đổi (SPARKS: 20 (0 được chuyển đổi, 0 cắt tỉa)).

Tôi muốn nghe ý kiến ​​của bạn về việc cải thiện chương trình này.

Cũng về phương pháp tiếp cận để học lập trình song song trong Haskell.

import Data.List 
import Control.Parallel 

parHelp :: (Num a) => [ a ] -> [ a ] -> a 
parHelp [] [] = 0 
parHelp (x : xs) (y : ys) = ret where 
ret = par a (pseq b (a + b)) where 
     a = x * y 
     b = parHelp xs ys 

helpMult :: (Num a) => [ a ] -> [ [ a ] ] -> [ a ] 
helpMult _ [] = [] 
helpMult x (y : ys) = ret where 
ret = par a (pseq b (a : b)) where 
    a = sum . zipWith (*) x $ y 
    b = helpMult x ys 

mult :: (Num a) => [ [ a ] ] -> [ [ a ] ] -> [ [ a ] ] 
mult [] _ = [] 
mult (x : xs) ys = ret where 
ret = par a (pseq b (a : b)) where 
    a = helpMult x ys 
    b = mult xs ys 

main = print $ mult [[1 .. 4 ] , [ 1 .. 4 ] , [ 1 .. 4 ] , [ 1 .. 4] ] (transpose [[1 .. 4 ] , [ 1 .. 4 ] , [ 1 .. 4 ] , [ 1 .. 4] ]) 

Answer 1

Bạn đã thử ma trận rất lớn (ít nhất 1000x1000) chưa? Có thể tính toán quá ngắn để không thể so sánh được.