rolisz's site

Moar LISP

Că am tot avut discuții cu câțiva colegi legat de anumite probleme la LISP, voi posta re­zolvările la unele (mai cerute de public) și, dacă am chef, le și explic.

First off:

Sa se scrie o functie care plecand de la o lista data ca argument, inverseaza numai secventele continue de atomi. Exemplu:

(a b c (d (e f) g h i)) ==> (c b a (d (f e) i h g))

(defun invers(l)
    (invers_aux l nil)
)
(defun invers_aux(l sir)
    (cond
        ((null l) sir)
        ((atom (car l))
  
continue.