encode-deltas ( baselen deltas -- seq )

Vocabulary

punycode.private

Inputs

baselen	an object
deltas	an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: punycode.private

:: encode-deltas ( baselen deltas -- seq )
    SBUF" " clone :> accum BIAS :> bias! deltas [| delta i |
        delta bias encode-delta accum push-all delta baselen i +
        1 + i 0 = adapt bias!
    ] each-index accum ;