Haskell IO'nun performansı nasıl geliştirilir?

Question

Haskell'in IO'sunun nispeten yavaş olduğu görülüyor.

Python versiyonu:

Python

#io.py 
import sys 
s=sys.stdin.read() 
sys.stdout.write(s) 

ile Haskell karşılaştırılması Örneğin

,

-- io.hs 
main = do 
    s <- getContents 
    putStr s 

Performansları (gen.py stdout'ta içine 512k verileri yazar)

$ time python gen.py | python io.py > /dev/null 

real 0m0.203s 
user 0m0.015s 
sys  0m0.000s 

Haskell sürümü:

$ time python gen.py | runhaskell io.hs > /dev/null 

real 0m0.562s 
user 0m0.015s 
sys  0m0.000s 

Haskell biri kadar düşük olduğu görülmektedir. Testimle ilgili bir problem var mı? Yoksa sadece Haskell'in doğal sorunu mu?

Teşekkürler.

Answer 1

Örneğiniz yavaştır çünkü tembel IO'yu String -s ile kullanır. Her ikisinin de kendi genel yükleri vardır.

Özellikle StringChar -s'nin bağlı bir listesidir, bu nedenle her karakter için iki karakterlik boşluk eki vardır (yapıcı etiket için bir sözcük ve ileri işaretçi için bir sözcük) ve her karakter en az tek kelime (önbelleğe alınan düşük karakterler için bir kelime, önbelleğe alınmamış karakterler için üç sözcük).

Bayt veya unicode dizi girdisi ile sıkı IO çok daha hızlıdır.

import qualified Data.ByteString as B 

main = B.putStr =<< B.getContents 

Veya aşağıdaki:

import qualified Data.Text as T 
import qualified Data.Text.IO as T 

main = T.putStr =<< T.getContents