until-zero ( ... n quot: ( ... x -- ... y ) -- ... )


Vocabulary
math

Inputs
na number
quota quotation with stack effect ( ... x -- ... y )


Outputs
None

Word description
Makes a check if the number is zero, and repeatedly calls quot until the value on the stack is zero.

Examples
USING: kernel math prettyprint ; 15 [ dup . 2/ ] until-zero
15 7 3 1


See also
if-zero, when-zero, unless-zero

Definition


: until-zero ( ... n quot: ( ... x -- ... y ) -- ... )
[ dup zero? ] swap until drop ; inline