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