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 ))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Type in the text below:
 _ _     _            
(_) |__ | |_ __ _ ___ 
| | '_ \| __/ _` / __|
| | | | | || (_| \__ \
|_|_| |_|\__\__, |___/
               |_|    
Visually impaired? Let me spell it for you (wav file) download WAV