Scheme. Вычисление суммы элементов подмножества - Lisp
Формулировка задачи:
Добрый вечер, помогите, пожалуйста с программой на Scheme. С утра мучаюсь, как вместо вывода на экран подмножеств, вывести сумму элементов подмножеств?
(define nil '())
(define (subsets s)
(if (null? s)
(list nil) ; set of nil
(let ((rest (subsets (cdr s))))
(newline)
(append rest (map
(lambda (elem) (cons (car s) elem))
rest)))))Решение задачи: «Scheme. Вычисление суммы элементов подмножества»
textual
Листинг программы
(list nil)