>interval-map-by ( start-quot end-quot value-quot seq -- interval-map )


Vocabulary
io.encodings.gb18030.private

Inputs
start-quotan object
end-quotan object
value-quotan object
seqan object


Outputs
interval-mapan object


Definition
USING: arrays assocs interval-maps kernel ;

IN: io.encodings.gb18030.private

: >interval-map-by
( start-quot end-quot value-quot seq -- interval-map )
[ [ 2array ] compose ] dip [ tri ] 3curry { } map>assoc
<interval-map> ; inline