Selam Arkadaslar Matematikte Sequence (ArdışıkSayılar) Gibi Birşey Vardır Elbet Bilirsiniz.

Hani 4 Ardışık Tek Sayının Toplamı 15 tir felan gibi.

O Işlemin Bilgisayar Üzerinde Ard Arda Çalıştıgını Gösterme Işlemine Fibonancci Sequence Denir.

FS Islemini cLisp’de Ekrana Döktürmek Için Kullanacagınız Snippet Aşşağıdadır.

Bu Fonksiyonu Bizim Türkler Anlamakta Biraz Sıkıncı Çekiyor.:)

Şimdi u(1) = 0, u(2) = 1 olmak üzere; n > 2, u(n) = u(n-1) + u(n-2) dersek.

u(n) ve u(n+1) aralarında asaldır.
u(n) / u(n+1) = sqrt(5) - 1 / 2 (bu da altın oran, belki altın bölüm, bazen altın kesme)
bunlar bilinenler; bir de:
u(n+1)*u(n-1) = u(n)^2 + (-1)^n Böyle Bir Fonksiyonu Var Bu Işin.

Yani Lisp Tamamen Matematik Üzerine Dayalıdır.

Fibonancci Sequence Fonksiyonunu Kullanmak Istiyorsanız Ornek Source Buradadır.


#
(defun mk-prompt (string)
#
(format *query-io* string)
#
(read-line *query-io*)
#
)
#
(defvar count 0)
#
(defvar upper (parse-integer (mk-prompt "Kaç Ardisik Sayi Var: ")))
#
(defvar a 0)
#
(defvar b 1)
#
(defvar c 0)
#
(loop
#
(when (>= count upper) (return))
#
(setf c a)
#
(setf a (+ a b))
#
(setf b c)
#
(format t "~d " a)
#
(setf count (+ count 1))
#
)

Güzel Bir Yazı Oldu,
Okuduğunuz Için Çok Teşekkür Ederim.