HomeAboutCodePastes

Paste on 2021-04-18T00:48:19

(define (pair-boolfold f lst)
  (let loop ((lst lst))
    (if (null? (cddr lst))
        (f (car lst) (cadr lst))
        (and (f (car lst) (cadr lst))
             (pair-boolfold f (cdr lst))))))

plain