hugo

module Check74 where

main :: IO ()
main =
  do filepath <- getArgs
     contents <- readFile filepath
     printNumbered (longRows (number (lines contents))


-- testrader = ["jhejkaasfasf", "ajsfsjaklf"]
-- testrad2 = "jhejkaasfasf\najsfsjaklf"


-- Numrerar raderna.
number :: [String] -> [ (Int,String) ]
number rows = zip [1..] rows

-- Lämnar rader som är längre än 74 tecken.
longRows :: [ (Int,String) ] -> [ (Int,String) ]
longRows rows = [ (n,text) | (n,text) <- rows, length text > 74]


-- Skriver ut raderna.
printNumbered tuple = sequence [ putStrLn (show n ++ " " ++ text)
                               | (n,text) <- tuple ]