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
                            Листинг программы

Оцени полезность:

11 голосов , оценка 3.818 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы