Thursday, May 3, 2012

Menghitung Banyaknya Elemen Ganjil pada List

(defun BykElmtGnjl (L)     ====> List
          (cond     ((null L)  0)
                        ((oddp (firstelmt L))  (+ 1 (bykElmtGnjl  (cdr L))))     ==> Rekursif dengan penambahan 1 untuk setiap elemen ganjil
                        (t  (BykElmtGnjl (tail L)))                                            ==> Kondisi default
          )
)

0 comments:

Post a Comment