Skip to content

Instantly share code, notes, and snippets.

@luqui

luqui/howtowrite.hs

Last active August 29, 2015 13:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save luqui/10237820 to your computer and use it in GitHub Desktop.
Save luqui/10237820 to your computer and use it in GitHub Desktop.
Download ZIP
How to write this book
Raw
howtowrite.hs
import Data.List (intercalate)
write :: String -> String
write = intercalate ". " . map (\word -> "Write " ++ show word) . words
howToWrite :: String
howToWrite = "How to write this book: " ++ write howToWrite
{-
>>> putStrLn $ take 1000 howToWrite
How to write this book: Write "How". Write "to". Write "write". Write "this". Write "book:". Write "Write".
Write "\"How\".". Write "Write". Write "\"to\".". Write "Write". Write "\"write\".". Write "Write". Write
"\"this\".". Write "Write". Write "\"book:\".". Write "Write". Write "\"Write\".". Write "Write". Write
"\"\\\"How\\\".\".". Write "Write". Write "\"Write\".". Write "Write". Write "\"\\\"to\\\".\".". Write
"Write". Write "\"Write\".". Write "Write". Write "\"\\\"write\\\".\".". Write "Write". Write "\"Write\".".
Write "Write". Write "\"\\\"this\\\".\".". Write "Write". Write "\"Write\".". Write "Write". Write
"\"\\\"book:\\\".\".". Write "Write". Write "\"Write\".". Write "Write". Write "\"\\\"Write\\\".\".". Write
"Write". Write "\"Write\".". Write "Write". Write "\"\\\"\\\\\\\"How\\\\\\\".\\\".\".". Write "Write".
Write "\"Write\".". Write "Write". Write "\"\\\"Write\\\".\".". Write "Write". Write "\"Write\".". Write
"Write". Write "\"\\\"\\\\\\\"to\\\\\\\".\\\".\".". Writ
-}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment