loop ( ... pred: ( ... -- ... ? ) -- ... )
Factor handbook » The language » Combinators » Looping combinators

Prev:

do ( pred body -- pred body )

Vocabulary
kernel

Inputs

pred	a quotation

Outputs
None

Word description
Calls the quotation repeatedly until it outputs f.

Examples
Loop until we hit a zero:

USING: kernel random math io ; [ "hi" write bl 10 random zero? not ] loop
hi hi hi

A fun loop:

USING: kernel prettyprint math ; 3 [ dup . 7 + 11 mod dup 3 = not ] loop drop
3 10 6 2 9 5 1 8 4 0 7

Definition

IN: kernel

: loop ( ... pred: ( ... -- ... ? ) -- ... )
    [ call ] keep [ loop ] curry when ; inline recursive