The accumulate procedure is also known as
, because it combines the first element of the sequence with the result of combining all the elements to the right. There is also a
, which is similar to
, except that it combines elements working in the opposite direction:
(define (fold-left op initial sequence) (define (iter result rest) (if (null? rest) result (iter (op result (car rest)) (cdr rest)))) (iter initial sequence))
What are the values of
(fold-right / 1 (list 1 2 3)) (fold-left / 1 (list 1 2 3)) (fold-right list nil (list 1 2 3)) (fold-left list nil (list 1 2 3))
Give a property that
should satisfy to guarantee that
will produce the same values for any sequence.
There are no comments yet.
You must log in to post a comment.Login
(define example (list 1 2 3)) (check-equal? (fold-right / 1 example) 3/2) (check-equal? (fold-left / 1 example) 1/6) (check-equal? (fold-right list '() example) '(1 (2 (3 ())))) (check-equal? (fold-left list '() example) '(((() 1) 2) 3)) (check-equal? (fold-right + 0 example) (fold-left + 0 example)) (check-equal? (fold-right * 1 example) (fold-left * 1 example))