bech32-polymod ( values -- n )

Vocabulary

bech32.private

Inputs

values

an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: bech32.private

: bech32-polymod ( values -- n )
    1 [
        over
        [ 33554431 bitand 5 shift ] [ bitxor ] [ -25 shift ]
        tri*
        { 996825010 642813549 513874426 1027748829 705979059 }
        [ bit? [ bitxor ] [ drop ] if ] with each-index
    ] reduce ;