start-loop ( str i -- str j/f )

Vocabulary

brainfuck.private

Inputs

str	an object
i	an object

Outputs

str	an object
j/f	an object

Definition

USING: combinators kernel math sequences ;

IN: brainfuck.private

: start-loop ( str i -- str j/f )
    0 swap 1 - pick [
        { { 91 [ 1 - dup zero? ] } { 93 [ 1 + f ] } [ drop f ] }
        case
    ] find-last-from drop nip dup [ 1 + ] when ;