bech32-checksum ( hrp data checksum -- checksum )


Vocabulary
bech32.private

Inputs
hrpan object
dataan object
checksuman object


Outputs
checksuman object


Definition
USING: kernel math sequences ;

IN: bech32.private

: bech32-checksum ( hrp data checksum -- checksum )
[ bech32-hrp-data B{ 0 0 0 0 0 0 } append bech32-polymod ]
[ bitxor ] bi* 6 [ 5 - 5 * shift 31 bitand ] with
B{ } map-integers-as ;