alan rewite day1 haskell

[adventofcode.git] / day5 / day5.hs

import System.IO  
main = do  
    contents <- readFile "input.txt"  
    putStrLn $ "The file has " ++ show (length (lines contents)) ++ " lines!"