(ist (Scheme) ((tolle Programmiersprache) eine))

(define (combine-sequence operator a1 get-ak+1 n)
(define (inner-iter ak k result-so-far)
(cond ((= k n) result-so-far)
(else (let ((ak+1 (get-ak+1 ak k)))
(inner-iter ak+1 (+ k 1) (operator result-so-far ak+1))))))
(inner-iter a1 1 a1))

So weit alles klar? ICH SEHE ÜBERALL NUR NOCH KLAMMERN.