Bitcoin/public point to address: Difference between revisions
Content deleted Content added
→{{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
}
| |||