all-intervals ( sequence -- intervals )


Vocabulary
interval-maps.private

Inputs
sequencean object


Outputs
intervalsan object


Definition
USING: arrays assocs kernel math ;

IN: interval-maps.private

: all-intervals ( sequence -- intervals )
[ [ dup number? [ dup 2array ] when ] dip ] { } assoc-map-as
;