Jak poprawić wydajność Haskell IO?

Question

Wygląda na to, że IO Haskella jest relatywnie wolne.

Na przykład, porównując Haskell z Pythonem

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

,

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

Ich wydajność (gen.py pisze 512K danych do stdout):

wersji

Python:

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

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

Wersja Haskell:

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

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

Wygląda na to, że Haskell jest znacznie niższy. Czy jest jakiś problem z moim testem? Czy jest to tylko nieodłączny problem Haskella?

Dzięki.

Answer 1

Twój przykład jest powolny, ponieważ używa leniwego IO z String -s. Oba mają własne koszty ogólne.

W szczególności, String jest połączoną listą Char -s, dlatego ma dwa słowa narzutowe dla każdego znaku (jedno słowo dla znacznika konstruktora i jedno dla wskaźnika do przodu), a każda postać zajmuje co najmniej jedno słowo (jedno słowo dla cache low characters, trzy słowa dla uncached characters).

Ścisłe IO z wejściem tablicy bajtowej lub unicode jest znacznie szybsze. Spróbuj odniesienia następujące:

import qualified Data.ByteString as B 

main = B.putStr =<< B.getContents 

Albo co następuje:

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

main = T.putStr =<< T.getContents