Skip to content

Instantly share code, notes, and snippets.

@314maro

314maro/morse.hs

Created July 20, 2014 13:05
Show Gist options
  • Save 314maro/69528adb133fb462be6c to your computer and use it in GitHub Desktop.
Save 314maro/69528adb133fb462be6c to your computer and use it in GitHub Desktop.
Download ZIP
morse
Raw
morse.hs
l=[".-","-...","-.-.","-..",".","..-.","--.","....","..",".---","-.-",".-..","--","-.","---",".--.","--.-",".-.","...","-","..-","...-",".--","-..-","-.--","--.."];toM=fmap unwords.mapM(`lookup`zip['A'..]l);toA=mapM(`lookup`zip l['A'..]).words
main=maybe(return())putStrLn$toA"... --- ..."
-- or
-- main=maybe(return())putStrLn$toM"HOGE"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment