Another update from ingydotnet^djgoku

Task/MD4/Haskell/md4.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 . md4 . pack . unwords =<< getArgs
+         where md4 x = hash x :: Digest MD4

Task/MD4/Julia/md4.julia

@@ -0,0 +1,9 @@
+using Nettle
+
+msg = "Rosetta Code"
+
+h = HashState(MD4)
+update!(h, msg)
+h = hexdigest!(h)
+
+println("\"", msg, "\" => ", h)