diff options
Diffstat (limited to 'csc/list.csc')
| -rw-r--r-- | csc/list.csc | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/csc/list.csc b/csc/list.csc index 95fff04..cc64168 100644 --- a/csc/list.csc +++ b/csc/list.csc @@ -1,5 +1,6 @@ (define-library (csc list) (export + all enumerate filter intercalate @@ -70,4 +71,11 @@ (loop for x in l collect (car x) into xs collect (cdr x) into ys - finally (return (values xs ys)))))) + finally (return (values xs ys)))) + + + (define (all pred l) + (loop for x in l + unless (pred x) + return #f + finally (return #t))))) |