Základom môže byť všeobecná schéma spracovania na ľubovolnej úrovni.
Vždy zisťujem minimálne číslo z s-výrazu vľavo (first) a vpravo (rest) a vyberám minimum. Jedným z možných riešení je, že v našej hlavnej funkcií použijeme funkciu mymin, vracajúcu minimálne číslo spomedzi 2 argumentov. Pričom medzi argumentmi môžu byť aj iné prvky ako len čísla. Ak nebude mať na vstupe žiadne číslo môže vrátiť napríklad NIL. To zabezpečí korektné fungovanie aj v prípade, že v podvýraze s-výrazu nebude žiadne číslo.
(defun mymin (a b)
(cond ((AND (NUMBERP a) (NUMBERP b)) (min a b))
((NUMBERP a) a)
((NUMBERP b) b)
(T NIL)
)
)
; V hlavnej funkcií minc v cond za (ATOM sv) nemôžem
; vracať 0, pretože ak by v zozname bolo
; napr. minimálne číslo 10, potom by sa miesto neho zobrala táto
; nula, ktorá vlastne v zozname ako číslo nie je.
(defun minc (sv)
(cond ((NUMBERP sv) sv)
((ATOM sv) NIL)
(T (mymin (minc (first sv)) (minc (rest sv))))
)
)
; Príklad:
(minc '(1 2 (3 4 (5 6)) 5)) ; -> 1
(minc '(-8 (-9 -10) ((-1)))) ; -> -10