SHA-256: Difference between revisions
m
→{{header|Perl 6}}: defining K as persistent
m (→{{header|Perl 6}}: defining K as persistent) |
|||
Line 376:
}
multi sha256(Buf $data) {
my $l = 8 * my @b = $data.list;
push @b, 0x80; push @b, 0 until (8*@b-448) %% 512;
| |||