Mengganti Elemen List Menjadi 0 Jika Genap

Judul :
gantinol (L)
Definisi dan Spesifikasi :
gantinol : list of integer → list integer
{ gantinol(L) mengganti elemen List menjadi 0 jika genap }
Ralisasi :
Basis : jika list kosong nil
Rekurens: if (FirstElment L) genap, then konso 0 gantinol (Tail L)
else konso (FirstElment L)gantinol (Tail L)
Aplikasi:
(gantinol ‘(1 2 3 4 5 6 7 8 9))
(1 0 3 0 5 0 7 0 9)


(defun gantinol (L)
(cond ((null L) nil)
((evenp (car L))(cons 0 (gantinol (cdr L))))
(t (cons(car L)(gantinol (cdr L))))
)
)

gantinolgenap

7,008 thoughts on “Mengganti Elemen List Menjadi 0 Jika Genap