- bitwise-unfold stop? mapper successor seedprocedure
Generates a non-negative integer bit by bit, starting with bit 0. If the result of applying stop? to the current state (whose initial value is seed) is true, return the currently accumulated bits as an integer. Otherwise, apply mapper to the current state to obtain the next bit of the result by interpreting a true value as a 1 bit and a false value as a 0 bit. Then get a new state by applying successor to the current state, and repeat this algorithm.
(bitwise-unfold (lambda (i) (= i 10)) even? (lambda (i) (+ i 1)) 0)) => #b101010101