Как написать на схеме функцию, которая суммирует числа во встроенных списках?
i.e. ((1) (2 3) (4) (5 6))
Я написал это, чтобы суммировать обычный список:
(define (sum list)
(if (null? list)
0
(+ (car list) (sum (cdr list)))))
но я не уверен, как сделать встроенный.
У вас есть 3 случая:
(define (my-sum lst)
(cond
; 1. the list is empty, so finish of by adding 0
([empty? lst] 0)
; 2. the first element is a list, so recurse down on the sublist, then do the rest
([list? (car lst)] (+ (my-sum (car lst)) (my-sum (cdr lst))))
; 3. add the first element to the sum, then do the rest
(else (+ (car lst) (my-sum (cdr lst))))))
так что вы просто пропустили средний случай.
Это будет работать независимо от глубины вложенности:
(my-sum '((1) (2 3) (4) (5 6)))
=> 21
(my-sum '((1) (2 3) (4) (5 6 (7 8 (9)))))
=> 45
Обратите внимание, что не следует использовать имена «сумма» и «список», чтобы не затенять встроенные процедуры.
Вот самый простой ответ.
(define (sum list-of-lists)
(apply + (apply append list-of-lists)))
и "доказательство":
> (sum '((1) (2 3) (4) (5 6)))
21
Более функциональным способом
; this sums the elements of a not-embedded list
(define (sum-list* l)
(foldl + 0 l))
; this sums the elements of an embedded list
(define (sum-embedded-list* el)
(foldl + 0 (map sum-list* el)))
Он охватывает случай составленного таким образом списка: ((a1...an) (b1...bn)...), где ai и bj — атомы. Foldl и map — две важные функции в схеме (и других языках). Если вы не знаете, как их использовать, вы должны научиться. Посмотрите здесь
