encode-delta ( delta! bias -- seq )

Vocabulary

punycode.private

Inputs

delta!	an object
bias	an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: punycode.private

:: encode-delta ( delta! bias -- seq )
    SBUF" " clone :> accum 0 :> j! [
        j 1 + j! j bias threshold :> T delta T <
        [ f delta ]
        [ t delta T - BASE T - /mod T + swap delta! ] if
        DIGITS nth accum push
    ] loop accum ;