Anonymous user
MD4: Difference between revisions
Added Haskell
(→{{header|Julia}}: A new entry for Julia) |
(Added Haskell) |
||
Line 164:
<pre>
Rosetta Code => A52BCFC6A0D0D300CDC5DDBFBEFE478B
</pre>
=={{header|Haskell}}==
{{libheader|Cryptonite}}
<lang haskell>#!/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</lang>
{{out}}
<pre>
$ ./md4.hs Rosetta Code
a52bcfc6a0d0d300cdc5ddbfbefe478b
</pre>
| |||