Data commit

Task/MD5/Haskell/md5-1.hs

@@ -0,0 +1,8 @@
+import Data.Digest.OpenSSL.MD5 (md5sum)
+import Data.ByteString (pack)
+import Data.Char (ord)
+
+main = do
+  let message = "The quick brown fox jumped over the lazy dog's back"
+      digest  = (md5sum . pack . map (fromIntegral . ord)) message
+  putStrLn digest

Task/MD5/Haskell/md5-2.hs

@@ -0,0 +1,9 @@
+#!/usr/bin/env runhaskell
+
+import Data.ByteString.Char8 (pack)
+import System.Environment (getArgs)
+import Crypto.Hash
+
+main :: IO ()
+main = print . md5 . pack . unwords =<< getArgs
+         where md5 x = hash x :: Digest MD5