(all-integers?) ( ... i n quot: ( ... i -- ... ? ) -- ... ? )
Vocabulary
math
Definition
USING:
kernel
math.private
;
IN:
math
:
(all-integers?)
( ... i n quot: ( ... i -- ... ? ) -- ... ? )
[
iterate-step
[
iterate-next
(all-integers?)
]
3curry
[
f
]
if
]
[
3drop
t
]
if-iterate?
;
inline
recursive