하스켈 재귀의 비 소모적

Question

sumAllDigits :: [ Int ] -> Int 
sumAllDigits (x:xs) 
    |(x:xs) == [] = 0 
    |x >= 10 = sumDigits x + sumAllDigits xs 
    |x< 10 = x + sumAllDigits xs 

REPORT :
* 재귀> sumAllDigits [22,33] *** 예외 : Recursion.hs (76,1) - (79,34) : 비 소모적 함수 sumAllDigits의 패턴

Answer 1

나는 다음과 같은 변경 사항으로 인해 문제가 해결 될 것으로 믿습니다. 필자는 일치하는 일치하는 자체 구현 인 빈 목록의 경우를 선호합니다. 그냥 나에게 더 명백한 느낌. 그리고 나서 x은 >=에 빠지며 그보다 작을 경우 해당 사례를 처리합니다.

sumAllDigits :: [ Int ] -> Int 
sumAllDigits [] = 0 
sumAllDigits (x:xs) 
    | x >= 10 = sumDigits x + sumAllDigits xs 
    | otherwise= x + sumAllDigits xs