(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