SHA-256 Merkle tree: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 476:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>data=
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&];
| |||