make it functional 함수형 프로그래밍의 모든 것

박지인님의 알고리즘을 이용하여 풀었다. 자리 올림이 한 번 발생하면 전체 숫자의 합이 9 줄어든다.

module Main where

import Data.Char (digitToInt)

countCarry x y =  (x' + y' - z) `div` 9  where
    digits = sum . (map digitToInt)
    x' = digits x
    y' = digits y
    z = digits $ show $ read x + read y

main = do
    line <- getLine

    if line == "0 0" then return () else do
        let
            result = countCarry (nums !! 0) (nums !! 1)
                where nums = words line

        putStrLn
            (case result of
                0 -> "No carry operation."

                1 -> "1 carry operation."
                otherwise -> show result ++ " carry operations.")

        main