Program Bilangan Fibonacci Menggunakan LISP

Dalam matematika, bilangan Fibonacci adalah barisan yang didefinisikan secara rekursif sebagai berikut:

Penjelasan: barisan ini berawal dari 0 dan 1, kemudian angka berikutnya didapat dengan cara menambahkan kedua bilangan yang berurutan sebelumnya. Dengan aturan ini, maka barisan bilangan Fibonaccci yang pertama adalah:

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946...

Barisan bilangan Fibonacci dapat dinyatakan sebagai berikut:

F_n = (x₁ⁿ – x₂ⁿ)/ sqrt(5)

dengan

• F_n adalah bilangan Fibonacci ke-n
• x₁ dan x₂ adalah penyelesaian persamaan x²-x-1=0

Perbandingan antara F_n+1 dengan F_n hampir selalu sama untuk sebarang nilai n dan mulai nilai n tertentu, perbandingan ini nilainya tetap.

berikut ini adalah contoh program menggunakan LISP untuk mencari bilangan fibonacci :

(defun fibonacci (x)
  (if (or (zerop x) (= x 1)) 1 

  (+ (fibonacci(- x 1)) (fibonacci (- x 2))))
)

selanjutnya pemanggilan fungsi fibonacci sbb :

CL-USER 6 : 2 > fibonacci 6
13

semoga bermanfaat  (edi sugiarto)

wikipedia.com
edisugiarto.blogspot.com

Related Posts by Categories