[es] - F# - Fibonacijev niz ogranicen velicinom elementa

Shadowed
Vojvodina

Član broj: 649
Poruke: 12881

+4827 Profil

F# - Fibonacijev niz ogranicen velicinom elementa

^{30.01.2015. u 09:24 - pre 124 meseci}

Igram se malo u poslednje vreme F#-om pa sam se malo zaglavio

Naravno, najnezgodniji deo je izbacivanje imperativnog programiranja iz glave

Evo problema koji me trenutno muci. Racunanje fibonacijevog niza do n-tog elementa je jednostavno:

Code:

let rec fibonacci n =
    match n with
    | x when x <= 1 -> 1
    | _ -> (fibonacci (n-1) + fibonacci (n-2))

I mogu ga ispisati sa:

Code:

let rec PrintFib n =
  match n with
  | 1 -> printfn "%A" (fibonacci 1)
  | _ -> printfn "%A" (fibonacci n)
         PrintFib (n-1)

doduse, obrnutim redosledom sto takodje nisam uspeo da skontam kako da uradim da ide od najmanjeg, ali se oko toga nisam ni trudio (jos uvek)

Medjutim, ako je zadatak "prikazati sve elemente fib niza manje od N" onda nastaje problem.
Zapravo, cini mi se da je u oba slucaja problem sto se ide od najveceg ali ne kontam kako da okrenem..
Neki hint bi dobro dosao (ovo mi je vise kao mozgalica, nije mi za neki projekat)

Naravno, znam da mogu imperativno da uradim i u F#-u ali where the fun in that

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Odgovor na temu

mmix
Miljan Mitrović
Chief Software Architect
Financial Intelligence Software Ltd.
Passau, Deutschland

SuperModerator
Član broj: 17944
Poruke: 6050

+4631 Profil

Re: F# - Fibonacijev niz ogranicen velicinom elementa

^{30.01.2015. u 12:01 - pre 124 meseci}

Mislim da ne mozes rekurzivno, (mozda neka forward recursive muljavina) i bez da vuces prethodnu vrednost da bi je vratio kad izadjes iz opsega.

Ovo je imho idealan zadatak za "beskonacne" sekvence:

Code (csharp):

let fibMax maxN =

    Seq.unfold (fun (a, b) -> Some(a, (b, a + b))) (0, 1)

    |> Seq.pairwise 

    |> Seq.find(fun p -> fst p < maxN && snd p >= maxN) 

    |> fst

_{[Ovu poruku je menjao mmix dana 30.01.2015. u 14:16 GMT+1]}

Sloba je za 12 godina promenio antropološki kod srpskog naroda. On je od jednog
naroda koji je bio veseo, pomalo površan, od jednog naroda koji je bio znatiželjan, koji
je voleo da vidi, da putuje, da upozna,
od naroda koji je bio kosmopolitski napravio narod koji je namršten, mrzovoljan,
sumnjicav, zaplašen, narod koji se stalno nešto žali, kome je stalno neko kriv - Z.Đinđić

Odgovor na temu