Fun-Soft - Programmierforum

Autor

Thread - Seiten: [ 1 ] > 2 <

010
17.04.2009, 07:26 Uhr
Bruder Leif
dances with systems
(Operator)

Hmmm... nach dem takeWhile, den ich machen muss, damit ueberhaupt genug von der unendlichen Liste evaluiert wird, hab ich ein aufsteigendes Array, dessen letztes Element entweder die gesuchte Zahl ist oder eben nicht. Wozu binaere Suche...

Code:

fibs :: [Int]
fibs = 0:1:zipWith (+) fibs (tail fibs)

isfib :: Int -> Bool
isfib n = n == last(takeWhile (<=n) fibs)

test :: Int -> String
test n = (show n) ++ " ist " ++ (if (isfib n) then "eine" else "keine") ++ " Fibonacci-Zahl."

main = do
    putStr "Zu testende Zahl: "
    n <- getLine
    putStrLn $ test $ read n

--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

011
17.04.2009, 14:25 Uhr
0xdeadbeef
Gott
(Operator)

Um mehr als eine Zahl hintereinander auswerten zu können, ohne die Rechnung erneut vornehmen zu müssen. Wie dem aber auch sei, eigentlich ist auch das eine etwas alberne Herangehensweise, denn du musst ja nicht die ganze Folge ausrechnen, um die nte Fibonacci-Zahl zu erhalten, siehe http://de.wikipedia.org/wiki/Fibonacci-Zahlen#N.C3.A4herungsformel_f.C3.BCr_gro.C3.9Fe_Zahlen - und die wievielte man sucht, lässt sich per Logarithmus rausfinden.
--
Einfachheit ist Voraussetzung für Zuverlässigkeit.
-- Edsger Wybe Dijkstra

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

012
17.04.2009, 22:21 Uhr
Bruder Leif
dances with systems
(Operator)

Hey, die Aufgabenstellung war, es nur fuer eine einzelne Zahl rauszufinden

Bei mehreren Werten wuerde der Quelltext anders aussehen... *grubl*
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: [ 1 ] > 2 < [ C / C++ (WinAPI, Konsole) ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: