(find-integer) ( ... i n quot: ( ... i -- ... ? ) -- ... i )


Vocabulary
math

Definition
USING: kernel math.private ;

IN: math

: (find-integer)
( ... i n quot: ( ... i -- ... ? ) -- ... i )
[
iterate-step [ [ ] ] 2dip
[ iterate-next (find-integer) ] 2curry bi-curry if
] [ 3drop f ] if-iterate? ; inline recursive