(each-integer) ( ... i n quot: ( ... i -- ... ) -- ... )
Vocabulary
math
Definition
USING:
kernel
math.private
;
IN:
math
:
(each-integer)
( ... i n quot: ( ... i -- ... ) -- ... )
[
iterate-step
iterate-next
(each-integer)
]
[
3drop
]
if-iterate?
;
inline
recursive