
20 Jun
2007
20 Jun
'07
3:24 a.m.
aeyakovenko:
$ time ./md5sum ./md5sum [105,252,52,138,187,192,216,17,225,123,185,3,124,101,86,132]
real 0m4.790s user 0m3.688s sys 0m0.492s
$ time md5sum ./md5sum 69fc348abbc0d811e17bb9037c655684 ./md5sum
real 0m0.023s user 0m0.000s sys 0m0.008s
this is my implementation using crypto (http://www.haskell.org/crypto/). Am I doing something wrong?
module Main where
import System import qualified Data.Digest.MD5 as MD5 import qualified Data.ByteString as BS
main = do args <- getArgs dt <- BS.readFile $ head args putStrLn $ show $ MD5.hash . BS.unpack $ dt ^^^^ ^^^^^^^^^
not a good idea. You need an MD5 over bytestrings, not [Word8]. -- Don