屑俺日記

☆ 星がいっぱいの例題

自力では解けなかった。
以下、EmacsLispで。

(defun atom (n)
  (not (listp n)))
 
(defun rember* (a lat)
  (cond
   ((null lat) '())
   ((atom (car lat))
          (cond
           ((eq a (car lat)) (rember* a (cdr lat)))
           (t
            (cons (car lat) (rember* a (cdr lat))))))
   (t
    (cons (rember* a (car lat))
          (rember* a (cdr lat))))))

(rember* 'foo
         '(foo bar
               (foo
                (fizz buzz foo hoge) bar)
               baz foo fizz))
=>(bar ((fizz buzz hoge) bar) baz fizz)