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