int를 정수형으로 변환하려고 시도했습니다.

Question

정수를 취하여 그 정수를 단어로 출력하는 코드를 작성하려고합니다. 예 : 입력이 4321이면 출력은 4 천 3 백 21입니다. 이를 위해 먼저 입력을 개별 숫자로 나누고 싶습니다. ex 입력 4321은 [4,3,2,1]의 배열이됩니다.

내 현재 코드 순간

newtype wordInt = WI Int 

instance Show WordInt where 
    show (WI x) | x>= 0 = helper x 
       | x < 0 = helper -x 

helper 0 = [0] 
helper x = x `mod` 10 : helper (x `div` 10) 

, 나는 내가 유형의 오류가 있다고 생각. 양수와 음수를 모두 입력 할 수 있어야합니다. 또한, 내가 찾고있는 변환을 효율적으로 수행 할 수있는 방법을 생각할 수 있다면, 대단히 감사하겠습니다.

Answer 1

유형 이름은 소문자로 시작할 수 없습니다. 여기 WordInt에 wordInt 변경 : (AN Int에 적용 할 때)

newtype wordInt = WI Int 

Show 클래스의 방법 show은 String하고 helper을 반환해야하는 유형 Int -> [Int] 있습니다. 당신은 어떻게 든 목록에 show를 호출하여 예를 들면, String으로 목록을 변환해야합니다

마지막으로

instance Show WordInt where 
    show (WI x) | x >= 0 = show $ helper x 
       | x < 0 = show $ helper (-x) 

, 내가 괄호 안에 -x을 넣어 통지. 이는 컴파일러가 x을 helper (함수이고, Int이 아님)에서 뺀 것으로 생각하기 때문에 단항 마이너스에 필요합니다.

그러나 반올림하여 숫자 목록을 반환하므로 helper 구현이 잘못되었습니다. 이 문제를 해결하려면, 당신은 숫자를 분할하는 도우미 함수를 쓴 후 목록 역 :이 뜻 패드를, 그러나 앞에 0과 수

helper :: Int -> [Int] 
helper = reverse . go 
    where go 0 = [0] 
      go x = x `mod` 10 : go (x `div` 10) 

을 :

λ. helper 4321 
[0,4,3,2,1] 

이하지 않습니다 물론, 의미를 변경할 수 있지만,이 문제가 될 경우,이 경우 처리하는 래퍼 함수 쓰기 : 그것은 다음 두 경우 모두에서 작동

helper :: Int -> [Int] 
helper x = 
    case splitIntoDigits x of 
     [] -> [0] 
     xs -> reverse xs 

splitIntoDigits :: Int -> [Int] 
splitIntoDigits 0 = [] 
splitIntoDigits x = x `mod` 10 : splitIntoDigits (x `div` 10) 

:

를3210

λ. helper 0 
[0] 
λ. helper 4321 
[4,3,2,1]