Code: Select all
(setq y 0)
(defun counting (x l)
(cond
((null l) 0)
((eq x (car l) ) (setq y (+ y 1)) )
(t (counting x (cdr l)))
))
Code: Select all
(setq y 0)
(defun counting (x l)
(cond
((null l) 0)
((eq x (car l) ) (setq y (+ y 1)) )
(t (counting x (cdr l)))
))