SHA-256 Merkle tree: Difference between revisions

Content added Content deleted

Inline

@@ Line 476: / Line 476: @@
 =={{header|Mathematica}}/{{header|Wolfram Language}}==
-<lang Mathematica>data=Once[Import["https://rosettacode.org/mw/title.png","Byte"]];
+<lang Mathematica>data=Import["https://rosettacode.org/mw/title.png","Byte"];
 parts=Hash[ByteArray[#],"SHA256","ByteArray"]&/@Partition[data,UpTo[1024]];
 parts=NestWhile[If[Length[#]==2,Hash[Join@@#,"SHA256","ByteArray"],First[#]]&/@Partition[#,UpTo[2]]&,parts,Length[#]>1&];