Lisp Dili ile Obeb Hesaplama

Merhaba arkadaşlar bu yazımda basit bir matematik hesabı yapacağız. Orta okullarda ve lise de Matematik derslerinde öğretilen bir konudur obeb. İki sayının, Ortak Bölenlerin En Büyüğünü bulan fonksiyonu yazacağız.

(define (obeb a b)(cond [(= b 0) a]
                        [else (obeb b (modulo a b))]))

(obeb 32 24)

Kodumuz yukarıdaki gibidir. Burada özel olarak modulo fonksiyonunu kullandık. modula bizim bildiğimiz mod alma işlemidir. Sayının birbirine bölümünden kalan sayıyı verecektir.

Ekran Çıktısı:

drracket obeb fonksiyonu

[the_ad id=”441″]

Basit bir örnekti. Umarım faydalı olmuştur kolay gelsin..

Bunlara Göz Atmak İsteyebilirsiniz

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir