Project Euler Problem 8 with hs

gistfile1.hs

import Data.Char

main = do
  l <- getLine
  let nums = map digitToInt l
  putStrLn $ show $ maxNum nums

maxNum :: [Int] -> Int
maxNum [] = 0
maxNum all@(x:xs) = max (product (take 5 all)) (maxNum xs)

入力するファイルには数字が入ってます。(改行はなくして保存してるのでちょっとずるしてます)