Bitcoin/address validation: Difference between revisions
Content deleted Content added
→{{header|Factor}}: use map-reduce instead of map and reduce |
|||
Line 448: | Line 448: | ||
CONSTANT: ALPHABET "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz" |
CONSTANT: ALPHABET "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz" |
||
: base58>bigint ( |
: base58>bigint ( str -- n ) |
||
[ ALPHABET index ] |
[ ALPHABET index ] |
||
[ [ 58 * ] [ + ] bi* ] map-reduce ; |
[ [ 58 * ] [ + ] bi* ] map-reduce ; |
||
: base58> ( str -- |
: base58> ( str -- bytes ) base58>bigint 25 >be ; |
||
: btc-checksum ( bytes -- checksum-bytes ) |
: btc-checksum ( bytes -- checksum-bytes ) |