daily pastebin goal
3%
SHARE
TWEET

Untitled

a guest Dec 7th, 2017 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun removeEl(l e)
  2.     (cond
  3.          (
  4.             (null l)
  5.             nil
  6.          )
  7.          (
  8.            (listp (car l))
  9.            (cons (removeEl (car l) e) (remove (cdr l) e))
  10.            ;(removeEl (car l) e)
  11.          )
  12.          (
  13.            (and (equal (car l) e) (numberp (car l)))
  14.            (removeEl (cdr l) e)
  15.          )
  16.          (
  17.               t
  18.               (cons (car l) (removeEl (cdr l) e))
  19.          )
  20.      )
  21. )
RAW Paste Data
Top