(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