Teiler und sum Funktion < Haskell < Programmiersprachen < Praxis < Informatik < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 21:16 Do 27.10.2011 | | Autor: | per |
| Aufgabe | | Es soll eine Funktion geschrieben werden, die jede Zahl zwischen 1 und 1000 auflistet, bei der die Summe ihrer Teiler größer als sie selbst ist. |
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Soweit habe ich folgendes geschrieben, bekomme jedoch Fehlermeldungen, die ich nicht interpretieren kann und folglich auch nicht beheben. Ich weiß leider nicht, wo der Fehler steckt, da ich dachte, dass man Hilfsfunktionen durch einfache Nennung in der übergeordneten Funktion aufrufen kann. Ich weiß leider nicht weiter:
usage :: Integer -> [Integer]
usage x = [i | i <- [1..1000], sum [teiler x] > x]
teiler :: Integer -> [Integer]
teiler n = [k | k <- [1..n], mod n k == 0]
Gruß, Per.
|
|
| |
|
Hallo per, ![[willkommenmr]](/images/smileys/willkommenmr.png "[willkommenmr]")
Ich habe keine Ahnung von Haskell. (Na ja, so gut wie keine)
> Es soll eine Funktion geschrieben werden, die jede Zahl
> zwischen 1 und 1000 auflistet, bei der die Summe ihrer
> Teiler größer als sie selbst ist.
> Ich habe diese Frage in keinem Forum auf anderen
> Internetseiten gestellt.
>
> Soweit habe ich folgendes geschrieben, bekomme jedoch
> Fehlermeldungen, die ich nicht interpretieren kann und
> folglich auch nicht beheben. Ich weiß leider nicht, wo der
> Fehler steckt, da ich dachte, dass man Hilfsfunktionen
> durch einfache Nennung in der übergeordneten Funktion
> aufrufen kann. Ich weiß leider nicht weiter:
Was für Fehlermeldungen? Die wären schon hilfreich
> usage :: Integer -> [Integer]
>
> usage x = [i | i <- [1..1000], sum [teiler x] > x]
>
>
> teiler :: Integer -> [Integer]
>
> teiler n = [k | k <- [1..n], mod n k == 0]
>
> Gruß, Per.
Sieht von der Logik her gut aus. Wie kommt man in Haskell aus dem Funktionsaufruf zurück aus der Subroutine?
Ich lasse die Frage halboffen, damit sie auch noch von denen gefunden wird, die sich in der Sprache besser auskennen.
Grüße
reverend
|
|
|
| |
|
Hallo Per!
> Es soll eine Funktion geschrieben werden, die jede Zahl
> zwischen 1 und 1000 auflistet, bei der die Summe ihrer
> Teiler größer als sie selbst ist.
> Ich habe diese Frage in keinem Forum auf anderen
> Internetseiten gestellt.
>
> Soweit habe ich folgendes geschrieben, bekomme jedoch
> Fehlermeldungen, die ich nicht interpretieren kann und
> folglich auch nicht beheben. Ich weiß leider nicht, wo der
> Fehler steckt, da ich dachte, dass man Hilfsfunktionen
> durch einfache Nennung in der übergeordneten Funktion
> aufrufen kann. Ich weiß leider nicht weiter:
>
>
> usage :: Integer -> [Integer]
>
> usage x = [i | i <- [1..1000], sum [teiler x] > x]
>
Hier sollte '[teiler x]' durch '(teiler i)' und '> x' durch '> 2*i' ersetzt werden): (Ich denke, dass hier echte Teiler gemeint sind.)
usage x = [i | i <- [1..x], sum (teiler i) > 2*i]
Damit hast Du allerdings sogar eine Funktion, die auch noch andere Werte als x=1000 verarbeitet.
>
> teiler :: Integer -> [Integer]
>
> teiler n = [k | k <- [1..n], mod n k == 0]
>
> Gruß, Per.
LG mathfunnel
|
|
|
|
