Membuat Fungsi Mencari Bilangan Ganjil/Genap Menggunakan LISP

Berikut ini contoh fungsi dalam LISP untuk mengetahui apakah bilangan tersebut ganjil atau genap :

(defun cekGanjil (n)
(if (= 1 (mod n 2)) 'Ganjil  'Genap))

untuk menjalankan maka dapat kita panggil fungsi cekGanjil dan sertakan parameter.

CL-USER 16 > cekGanjil 4
GENAP

CL-USER 17 > cekGanjil 3
GANJIL

Nah selanjutnya saya akan membuat fungsi menggunakan LISP untuk mengetahui apakah bilangan tersebut positif atau negatif. bilangan positif yang dimaksud adalah apabila bilangan tersebut lebih sama dengan 0 (Nol) dan negatif bila bilangan kurang dari 0 (Nol).

berikut ini contoh fungsi tsb :

 (defun cekBilangan (x) 

     ( if (>= x 0) 'positif 'negatif)

 )

pemanggilan fungsinya sbb :

CL-USER 20 > cekBilangan 0
POSITIF

CL-USER 21 > cekBilangan 120
POSITIF

CL-USER 22 > cekBilangan -1
NEGATIF


semoga bermanfaat  (edisugiarto.blogspot.com)

Related Posts by Categories