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