cut-find ( sequence pred -- before after )


Vocabulary
sorting.human.private

Inputs
sequencean object
predan object


Outputs
beforean object
afteran object


Definition
USING: kernel sequences ;

IN: sorting.human.private

: cut-find ( sequence pred -- before after )
[ drop ] [ find drop ] 2bi dup [ cut ] when ; inline