find-sequences ( sequence pred quot -- sequences )


Vocabulary
sorting.human.private

Inputs
sequencean object
predan object
quotan object


Outputs
sequencesan object


Definition
USING: kernel make ;

IN: sorting.human.private

: find-sequences ( sequence pred quot -- sequences )
'[
[ _ cut3 [ [ , ] [ [ @ , ] when* ] bi* ] dip dup ] loop
drop
] { } make ; inline