SHA-256: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: [Z[m+]]= works now, so let's use it) |
|||
Line 1,097: | Line 1,097: | ||
@h = $t1 m+ $t2, @h[^3], @h[3] m+ $t1, @h[4..6]; |
@h = $t1 m+ $t2, @h[^3], @h[3] m+ $t1, @h[4..6]; |
||
} |
} |
||
@H |
@H [Z[m+]]= @h; |
||
} |
} |
||
return Blob.new: map { reverse .polymod(256 xx 3) }, @H; |
return Blob.new: map { reverse .polymod(256 xx 3) }, @H; |