parni - juni 2014 - grupa 1

 Дефинирај функција parni која прима еден аргумент – листа L чии елементи се цели
броеви со произволен број на цифри, и враќа листа со редните позиции на елементите во L кои
имаат само парни цифри на парните позиции. При тоа првиот елемент во листата е на редна
позиција 1, и најмалку значајната цифра во даден број е на позиција 1.
 Пример: (parni '(21 12 33 422 13 4215))  (1 4)
 (parni '(2 12 4211 33 54 13 571))  NIL

(defun proverka (broj pozicija brojce)
    (cond
        ((and (= 0 broj)(> brojce 0)) t)
        ((and (= 0 broj)(= 0 brojce)) nil)
        ((and (evenp pozicija)(evenp (mod broj 10)))(proverka (floor(/ broj 10))(+ 1 pozicija)(+ 1 brojce)))
        ((oddp pozicija)(proverka (floor(/ broj 10))(+ 1 pozicija) brojce))
        ((and (evenp pozicija)(oddp (mod broj 10))) nil)
        )
    )


(defun pom (lista brojac)
    (cond
        ((null lista) nil)
        ((equal (proverka (car lista) 1 0) t)(cons brojac (pom (cdr lista) (+ 1 brojac))))
        (t (pom (cdr lista)(+ 1 brojac)))
        )
    )

(defun parni (lista)
    (pom lista 1)
    )

(print (parni '(2 12 4211 33 54 13 571)))