SHA-256: Difference between revisions

22 bytes removed ,  11 years ago
m
→‎{{header|Perl 6}}: simpler loop structure
(adding SHA-256 task)
 
m (→‎{{header|Perl 6}}: simpler loop structure)
Line 32:
loop (my $i = 0; $i < @word.elems; $i += 16) {
my @h = @H;
loop (my int $j = 0; $j <for ^64; $j =-> $j + 1) {
@w[$j] = $j < 16 ?? @word[$j + $i] // 0 !!
[m+]
rotr(@w[$j-15], 7) +^ rotr(@w[$j-15], 18) +^ @w[$j-15] +> 3,
1,934

edits