mapMI :: (a -> IO b) -> [a] -> IO [b]mapMI _ [] = return []mapMI f (x:xs) = do y <- SIU.unsafeInterleaveIO (f x) ; ys <- SIU.unsafeInterleaveIO (mapMI f xs) ; return (y:ys)
Dear cafe,I have created a reproducible app here - https://github.com/ckkashyap/haskell-perf-reproEssentially I am trying to open a number of files and printing out their sized by reading them in and computing it's length.I have the equivalent perl program also there. I'd appreciate it very much if someone could take a look at my Haskell implementation and point out what I am doing wrong. Since it's over 50 times slower than the perl code, I assume I am doing something obviously incorrect.Regards,Kashyap
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe