find-sequences ( sequence pred quot -- sequences )


Vocabulary
sorting.human

Definition
USING: kernel make ;

IN: sorting.human

: 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