cut3 ( sequence pred -- first mid last )

Vocabulary

sorting.human.private

Inputs

sequence	an object
pred	an object

Outputs

first	an object
mid	an object
last	an object

Definition

USING: kernel ;

IN: sorting.human.private

: cut3 ( sequence pred -- first mid last )
    [ cut-find ] keep [ not ] compose cut-find ; inline