Skip to content

Instantly share code, notes, and snippets.

@MiyamonY

MiyamonY/27-190552.hs

Created February 27, 2015 10:06
Show Gist options
  • Save MiyamonY/c1d5515a1d2461d04963 to your computer and use it in GitHub Desktop.
Save MiyamonY/c1d5515a1d2461d04963 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
27-190552.hs
import System.IO ()
import Data.Char
main :: IO ()
main = do
contents <- readFile "baabaa.txt"
writeFile "baabaacaps.txt" (map toUpper contents)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment