Rekurzívne prechádzame zoznam, a jeho prvky vkladáme do výstupu, kým nenarazíme na význačný prvok.

(defun LAVA-STRANA (zoz sv)
 (cond ((null zoz) NIL)
       ((equal sv (first zoz)) NIL)
       (T (cons (first zoz) (LAVA-STRANA (rest zoz) sv)))
 )
)

; Príklady:
(LAVA-STRANA '(1 2 3 4 5) 3) ; -> (4 5)
(LAVA-STRANA '(1 2 3 4 5) 7) ; -> (1 2 3 4 5)

Autori

[ ZADANIE | AKO ZAČAŤ | RIEŠENIE ] Posledná aktualizácia 4. 9. 2001