Ich versuche, Ints in Zeichenfolgen in Haskell

Question

zu konvertieren Ich versuche, einen Code zu schreiben, um eine Ganzzahl zu nehmen und diese Ganzzahl in Worten auszugeben. Bsp .: Wenn die Eingabe 4321 ist, ist die Ausgabe viertausenddreihundertzehnundzwanzig. Dazu möchte ich zunächst die Eingabe in die einzelnen Ziffern zerlegen. Ex-Eingang 4321 würde eine Anordnung von [4,3,2,1] werden.

Mein aktueller Code

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) 

Im Moment denke ich, ich bin ein Typ Fehler. Bitte beachten Sie, dass dies in der Lage sein muss, sowohl positive als auch negative Zahlen zu übergeben. Wenn Sie sich einen effizienten Weg vorstellen können, um die gewünschte Konvertierung durchzuführen, wäre dies sehr zu begrüßen.

Answer 1

Namen von Typen dürfen nicht mit einem Kleinbuchstaben beginnen. Ändern wordInt-WordInt hier:

newtype wordInt = WI Int 

Verfahren show der Show Klasse muss ein String und Ihre helper Rückkehr hat den Typen Int -> [Int] (wenn sie ein Int angewandt). Sie müssen irgendwie die Liste in eine String, zum Beispiel zu konvertieren, indem show auf der Liste aufrufen:

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

Schließlich bemerken, dass ich -x in Klammern gesetzt. Dies wird für ein unäres Minus benötigt, da der Compiler andernfalls denkt, dass Sie versuchen, x von helper zu subtrahieren (was eine Funktion und keine Int ist).

Ihre Implementierung von helper ist jedoch falsch, da sie die Liste der Ziffern in umgekehrter Reihenfolge zurückgibt. Um dies zu beheben, können Sie eine Hilfsfunktion schreiben, um die Ziffern zu spalten und dann die Liste umkehren:

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

Dies wird jedoch Pad die Zahl mit einer führenden Null:

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

Dies gilt nicht ändert die Bedeutung, natürlich, aber wenn es ein Problem ist, schreiben sie eine Wrapper-Funktion mit diesem Fall zu befassen:

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) 

es dann in beiden Fällen funktioniert:

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