The following prog is supposed to flatten a list then add the number of odd
no's
(defun deep-count-odd (s)
(cond ((null s) 0)
((atom s) s)
((if (oddp s) 1 0))
((atom (first s))
((first s) (deep-count-odd (rest s)))
(t (apply '+ (mapcar 'deep-count-odd (first s)) (deep-count-odd
(rest s)))))))
(deep-count-odd '(1 ((5) 6) (3) (2)))
This should produce > 3 but it will not compile
Any thoughts ?
Dave