Skip to content

Instantly share code, notes, and snippets.

@atmantree atmantree/few_v1.hs
Last active Sep 11, 2017

Embed
What would you like to do?
Fuck Every Word (haskell dumb program)
-- Fuck Every Word
-- inspired by https://twitter.com/fuckeveryword
-- usage: runghc few.hs < some_text_file.txt
fuckAWord a = "Fuck " ++ a ++ "!\n"
fuckEveryWord = concat . map fuckAWord . words
main = interact fuckEveryWord
-- Fuck Every Word
-- inspired by https://twitter.com/fuckeveryword
-- usage: runghc few.hs
fuckAWord a = "Fuck " ++ a ++ "!\n"
fuckEveryWord b = concat $ map fuckAWord $ words b
main = do
putStrLn "You're words: "
line <- getLine
putStrLn "\nReturn:"
putStrLn $ fuckEveryWord line
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.