SHA-256: Difference between revisions
→{{header|Perl 6}}: add a slip to fix code
(→{{header|Perl 6}}: mark as broken) |
(→{{header|Perl 6}}: add a slip to fix code) |
||
Line 1,261:
=={{header|Perl 6}}==
The following implementation takes all data as input. Ideally, input should be given lazily or something.
Line 1,282 ⟶ 1,281:
my @b = flat $data.list, 0x80;
push @b, 0 until (8 * @b - 448) %% 512;
push @b, slip reverse (8 * $data).polymod(256 xx 7);
my @word = :256[@b.shift xx 4] xx @b/4;
|