функция, которая возвращает процедуру в схеме

Question

Вы должны определить функцию (скажем, add-y) одного аргумента y, которая возвращает процедуру, которая принимает один аргумент x и возвращает суммирование обоих аргументов, т.е. y и x.Используя определенную функцию add-y, напишите процедуру mul, которая принимает два целочисленных аргумента d и e и возвращает их произведение

Answer 1

(define (add-y y)
  (lambda (x) (+ x y)))

(define add-5 (add-y 5)) 

(add-5 2)

результат: 7

Answer 2

(define (add-y y) (lambda (x) (+ x y)))

(define (mul d e)
 (if (= e 0)
     0
     ((add-y d) (mul d (- e 1)))))