помогите решить две задачи на лиспе:1. Является ли данный список разложением числа в виде суммы.
2. Проверить, является ли один список декартовым произведением двух других.

Лиспы разные бывают. Да и набор функций учебного может сильно отличаться от "боевых".
На Common Lisp это выглядит так:

 

; Является ли данный список разложением числа в виде суммы

(defun sum-expan-p (num lst)

  (eq (apply #'+ lst) num))

 

; Проверить, является ли один список декартовым произведением двух других

(defun same-decart-mul-p (x-set y-set mul-set)

  (equal mul-set

         (mapcan #'(lambda (x)

                     (mapcar #'(lambda (y)

                                 (list x y)) y-set))

                 x-set)))