(DEFUN EXAMPLE () (MAIN '(2 -3 (4 3 0 2) (4 -4) (2 (2 0 2)) -3)) ) (DEFUN MAIN (L) (COND ((ATOM L) "Tika ievadits atoms" ) (T (FILTER (FILTERLIST (GETLIST L)) L) ) ) ) (DEFUN FILTER (X L) (COND ((NULL L) NIL) ((ATOM (CAR L)) (COND ((OR (AND (ATOM X) (EQUAL X (CAR L))) (AND (NOT (ATOM X)) (NOT (NULL (MEMBER (CAR L) X))))) (FILTER X (CDR L))) (T (CONS (CAR L) (FILTER X (CDR L))) ) ) ) (T (CONS (FILTER X (CAR L)) (FILTER X (CDR L))) ) ) ) (DEFUN FILTERLIST (L) (COND ((NULL L) NIL) (T (CONS (CAR L) (FILTERLIST (FILTER (LIST (CAR L) (- 0 (CAR L))) (CDR L)))) ) ) ) (DEFUN GETLIST (L) (COND ((NULL L) NIL) ((ATOM (CAR L)) (COND ((OR (NOT (NUMBERP (CAR L))) (ZEROP (CAR L))) (GETLIST (CDR L)) ) (T (CONS (- 0 (CAR L)) (GETLIST (CDR L)))) ) ) (T (APPEND (GETLIST (CAR L)) (GETLIST (CDR L))) ) ) )
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more