Исходное сообщение
"Эксперимент по разработке частей ядра Linux на языке Rust" Отправлено freehck, 05-Июн-17 13:49
Чёрт ногу сломит, ага: ; определяем сигму (define (sigma fun start stop [step 1])   (for/sum ([n (in-range start stop step)])     (fun n))) ; определяем последовательность f(n)=n (define (f n) n) ; находим частичную сумму первых десяти элементов последовательности f(n) (sigma f 1 10) ; => 45 А вот что мы делаем, когда нам нужно просто суммировать все элементы в списке: (define (sum list) (apply + list)) (sum '(1 2 3)) ; => 6 Комментарии, думаю, излишни.