Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
9
Task/MD4/Haskell/md4.hs
Normal file
9
Task/MD4/Haskell/md4.hs
Normal file
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue