Welcome to the CHICKEN Scheme pasting service

call-cc added by saeftl on Mon Jul 3 14:13:44 2017

(define (any pred? arr)
     (call-with-current-continuation
       (lambda (exit)
         (for-each (lambda (x) (if (pred? x) (exit #t))) arr)
         #f)))

(set! pos? (lambda (x) (> x 0)))
(any pos? (list -1 -1 -1 -1 0 -2 -3 -4 -5 ))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the R5RS procedure to access the first element of a pair?
Visually impaired? Let me spell it for you (wav file) download WAV