All pastes #139101 Raw Edit

Miscellany

public text v1 · immutable
#139101 ·published 2006-08-19 17:27 UTC
rendered paste body
(define (cfold' f z l)
 (if (pair? l)
  z
  (f (car l) z (lambda (y) (cfold' f y (cdr l)))))