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 )
[ , ] compose [ when* ] curry [ [ [ , ] ] ] dip
[ bi* ] curry compose [ [ cut3 ] curry ] dip
[ dip dup ] curry compose [ loop drop ] curry { } make ;
inline