Vocabulary
math

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


Outputs
i/fan object


Definition


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