SHA-256: Difference between revisions
m
→{{header|Perl 6}}: minor simplification
(→{{header|Perl 6}}: using the new polymod function) |
m (→{{header|Perl 6}}: minor simplification) |
||
Line 1,051:
multi sha256(Blob $data) {
constant K = init(* **(1/3))[^64];
▲ push @b, reverse $l.polymod(256 xx 7);
my @word = :256[@b.shift xx 4] xx @b/4;
|