Új hozzászólás Aktív témák

• #18 Domonkos addikt

  Új Válasz 2019-09-10 07:06:07 #18

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Domonkos

  addikt

  Gyorsabb, mint a linearis iterativ megoldas:
  (define (fib n)
(define (square a) (* a a))
(define (fib-iter a b p q count)
(cond ((zero? count) b)
((even? count) (fib-iter a
b
(+ (square p) (square q))
(+ (* 2 p q) (square q))
(/ count 2)))
(else (fib-iter (+ (* b q) (* a q) (* a p))
(+ (* b p) (* a q))
p
q
(- count 1)))))
(fib-iter 1 0 0 1 n))

Új hozzászólás Aktív témák