Bitcoin/public point to address: Difference between revisions
m
→{{header|Perl 6}}: 'flat' needed before reduce
(→{{header|Perl}}: longer pipeline and a final unpack) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: 'flat' needed before reduce) |
||
Line 347:
my $hash = rmd160 sha256 Blob.new: 4, @bytes.reverse;
my $checksum = sha256(sha256 Blob.new: 0, $hash.list).subbuf: 0, 4;
encode reduce * * 256 + * , flat 0, ($hash, $checksum)».list
}
| |||