ispushtiN - Fevruari (2015) - kaznena

(35 п) со отстранување на секој n-ти елемент од секоја подлиста (на сите нивоа) од
оригиналната листа.
Пример: (ispushtiN 2 '((1 2 3 4)(1 2 2 1)((1 3 5) 3 1)))  ((1 3)((1 5) 1))



(defun ispushtiN (n lista)
    (pom n lista 1)
    )

(defun pom (n lista brojac)
    (cond
    ((null lista) nil)
    ((equal brojac n)(pom n (cdr lista) 1))
    ((listp (car lista))(cons (pom n (car lista) 1)(pom n (cdr lista)(+ 1 brojac))))
    ((not(equal brojac n))(cons (car lista)(pom n (cdr lista)(+ 1 brojac))))
    )
)
(print (ispushtiN 2 '((1 2 3 4)(1 2 2 1)((1 3 5) 3 1))))