`collect-all``pred?``#!optional`(`sentinel``#t`)procedureReturns a collector that will return

`#t`if all the items it encounters satisfy`pred?`. Returns early with`#f`if`pred?`is false for any item, but will iterate across the entirety of the data if`pred?`is always satisfied.(import transducers) (transduce list-fold (inspect (lambda (x) (if (odd? x) (print x " is odd!") (print x " is not odd!")))) (collect-all odd?) (list 1 2 4 6)) ; 1 is odd! ; 2 is not odd! ; => #f (transduce list-fold (inspect (lambda (x) (if (odd? x) (print x " is odd!") (print x " is not odd!")))) (collect-all odd?) (list 1 3 5 7)) ; 1 is odd! ; 3 is odd! ; 5 is odd! ; 7 is odd! ; => #t