(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:
:)) :)] ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* : 8-} ~x( :-t b-( :-L x( =))
Post a Comment