gap-locs ( sizes gap -- seq )

Vocabulary

ui.gadgets.packs.private

Inputs

sizes	an object
gap	an object

Outputs

seq

an object

Definition

USING: kernel math.vectors sequences ;

IN: ui.gadgets.packs.private

: gap-locs ( sizes gap -- seq )
    [ { 0 0 } ] dip [ [ v+ ] ] dip [ v+ ] curry compose
    accumulate nip ;