SHA-256: Difference between revisions
Content deleted Content added
m →{{header|Perl 6}}: defining K as persistent |
|||
Line 376: | Line 376: | ||
} |
} |
||
multi sha256(Buf $data) { |
multi sha256(Buf $data) { |
||
state \K = init(* **(1/3))[^64]; |
|||
my $l = 8 * my @b = $data.list; |
my $l = 8 * my @b = $data.list; |
||
push @b, 0x80; push @b, 0 until (8*@b-448) %% 512; |
push @b, 0x80; push @b, 0 until (8*@b-448) %% 512; |