encode-deltas ( baselen deltas -- seq )


Vocabulary
punycode.private

Inputs
baselenan object
deltasan object


Outputs
seqan 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 ;