(each-integer) ( ... i n quot: ( ... i -- ... ) -- ... )


Vocabulary
math

Inputs and outputs
ian object
nan object
quota quotation with stack effect ( ... i -- ... )


Definition


: (each-integer) ( ... i n quot: ( ... i -- ... ) -- ... )
2over <
[ [ nip call ] 3keep [ 1 + ] 2dip (each-integer) ] [ 3drop ]
if ; inline recursive