dredge-fry-subquot ( n state i elt -- )

Vocabulary

fry.private

Inputs

n	an object
state	an object
i	an object
elt	an object

Outputs

None

Definition

USING: combinators kernel math ;

IN: fry.private

: dredge-fry-subquot ( n state i elt -- )
    rot {
        [ nip input-slices ]
        [ [ 2drop swap ] dip push-head-slice ]
        [ nipd push-subquot ]
        [ [ drop 1 + ] dip dredge-fry ]
    } 3cleave ; inline recursive