家族4人の年齢を入力して平均を出すだけのプログラム

family.hs

sumTo x = (read :: String -> Int) x
getInt = do m <- getLine ; return (sumTo m)
family list = (sum list) `div` (length list)
main = do
 putStrLn "mother " ; m <- getInt
 putStrLn "father " ; f <- getInt
 putStrLn "brother " ; b <- getInt
 putStrLn "me " ; me <- getInt
 putStr ("平均年齢は" ++ (show (family [m, f, b, me])) ++ "歳。")

{- /演算子を使うとDouble型に変換しなければ行けないので`div`を使いました。
　それとgetLineだとIntで出力されないんでread関数を使ってgetInt関数を作りました。便利です。-}