www.jammni.de

Gepostet:
02.11.2013 23:24

mit haskell quersumme berechnen

hallo ich bin neu hier im Forum und ich hab mich mit haskell leider noch nicht so richtig angefreundet :S

ich hab leider ein Problem..

also meine aufgabe :
Definieren Sie eine Funktion , die die Quersumme einer Zahl so lange berechnet, bis
das Ergebnis nur aus einer Ziffer besteht (Zahl zwischen 0-9)
Anwendungsbeispiel: quersumme 352418 => 5

nun habe ich diese lösung ...
quersumme :: Int -> Int
quersumme n = if n == 0 then 0 else quersumme (div n 10) + (mod n 10)

aber die Quersumme wird nur einmal berechnet, sprich wenn ich z.b. die Quersumme von 67 bechnen möchte kommt 13 raus, aber der soll ja nocheinmal die Quersumme berechnen also die Quersumme von 13, damit 4 rauskommt und somit die Bedingung "Ergebnis nur aus einer Ziffer (zahl zwischen 0-9)" gilt

ich würd mich auf ne antwort freuen
danke schonmal im voraus :)
LG qu :D

Zum Seitenanfang

Landei

Gepostet:
14.12.2013 20:03


quersumme :: Int -> Int
quersumme n
  | n < 10 = n
  | otherwise = n `mod` 10 + quersumme (n `div` 10)

Zum Seitenanfang

Haskell-Forum