(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