gambit_d.s

---

компилятор есть, в том то и дело что не понятно как ввести
я уже всяка пробовал

---

(defun maplst (fn x)

  (and x 

       (cons (funcall fn x)

	     (maplst fn (cdr x)))))

 

(defun apl-apply (f x)

  (and f

       (cons (funcall (car f) (car x))

	     (apl-apply (cdr f) (cdr x)))))

 

(defun Necotori (p x)

  (and x

       (or (and (funcall p (car x)) t)

	   (Necotori p (cdr x)))))

 

> (maplst #'(lambda(x) (cons 'x x)) '(1 2 3))

((X 1 2 3) (X 2 3) (X 3))

> (apl-apply (list #'1+ #'1-) '(1 2))

(2 1)

> (necotori #'integerp '(a b c 2))

T

 

Цитата

---

CL - это язык, стандарт, ты пользуешься его конкретной реализацией (CLisp, SBCL, Allegro, LispWorks, Clozure, Corman и т.д.).

---