Welcome to the CHICKEN Scheme pasting service

foldr added by msilver on Tue May 24 17:02:27 2016

(define (foldr proc init lst)
    (if (null? lst) init
	(let ((result (foldr proc init (cdr lst))))
	  (cond ((equal? proc and) (and (car lst) result))
		((equal? proc or) (or (car lst) result))
		(#t (proc (car lst) result))))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which operator can be represented by an apostrophe?
Visually impaired? Let me spell it for you (wav file) download WAV