Введение в программирование на Лиспе
defun decart
( defun decart (x y)
(map-el #'(lambda (i)
(map-el #'(lambda (j) (list i j))
y)
) x) )
Содержание раздела