SHA-256: Difference between revisions
Content added Content deleted
(adding SHA-256 task) |
m (→{{header|Perl 6}}: simpler loop structure) |
||
Line 32: | Line 32: | ||
loop (my $i = 0; $i < @word.elems; $i += 16) { |
loop (my $i = 0; $i < @word.elems; $i += 16) { |
||
my @h = @H; |
my @h = @H; |
||
for ^64 -> $j { |
|||
@w[$j] = $j < 16 ?? @word[$j + $i] // 0 !! |
|||
[m+] |
[m+] |
||
rotr(@w[$j-15], 7) +^ rotr(@w[$j-15], 18) +^ @w[$j-15] +> 3, |
rotr(@w[$j-15], 7) +^ rotr(@w[$j-15], 18) +^ @w[$j-15] +> 3, |