adapt ( delta! #chars first? -- bias )

Vocabulary

punycode.private

Inputs

delta!	an object
#chars	an object
first?	an object

Outputs

bias

an object

Definition

USING: kernel math ;

IN: punycode.private

:: adapt ( delta! #chars first? -- bias )
    delta first? DAMP 2 ? /i delta! delta dup #chars /i +
    delta! 0 [ delta 455 > ] [ delta 35 /i delta! BASE + ] while
    BASE delta * delta SKEW + /i + ;