SHA-256: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,054: / Line 1,054: @@
     push @b, 0x80; push @b, 0 until (8*@b-448) %% 512;
-    push @b, reverse gather for ^8 { take $l%256; $l div=256 }
+    push @b, reverse $l.polymod(256 xx 7);
     my @word = :256[@b.shift xx 4] xx @b/4;
@@ Line 1,078: / Line 1,078: @@
         @H = @H Z[m+] @h;
     }
-    return Blob.new: map -> $word is rw {
+    return Blob.new: map { reverse .polymod(256 xx 3) }, @H;
-        reverse gather for ^4 { take $word % 256; $word div= 256 }
-    }, @H;
 }</lang>
 {{out}}