најблиску до просек

(defun najblizok (lista)
    (setq p (prosek lista))
    (najblizokPom lista (car lista) p)
)

(defun najblizokPom (lista naj p)
    (cond
        ((null lista) naj)
        ((<= (abs (- p (car lista))) (abs (- p naj))) (najblizokPom (cdr lista) (car lista) p))
        (t (najblizokPom (cdr lista) naj p))
    )
)


(defun prosek (lista)
    (prosekPom lista 0 0)
)

(defun prosekPom (lista n zbir)
    (cond
        ((null lista) (/ zbir n))
        (t (prosekPom (cdr lista) (+ n 1) (+ zbir (car lista))))
    )
)

(print (najblizok '(9 3)))