language: Common Lisp (clisp) (clisp 2.47)
date: 128 days 21 hours ago
link:
visibility: public 
1
2
3
4
5
6
7

(defun ff (x y)
        (cond
                ( (null y) nil )
                ( (eq x (car y))  (ff x (cdr y)) )
                ( T             (cons x (ff x (cdr y))) )
        )
)