# Mathematica

Non-competing because the builtt-in [`HilbertCurve`](http://reference.wolfram.com/language/ref/HilbertCurve.html) was introduced in Mathematica 11.1 in 2017.

Inspired by [Joe K's answer](https://codegolf.stackexchange.com/a/22728/9288). Generates 9 images in one program.

<pre>
Table[Image@Partition[a[[Ordering@b]]/2^6, 2^9],
 {a, {Tuples[Range[2^6] - 1, 3], 
   FromDigits[Partition[#, 3], 2] & /@ Tuples[{0, 1}, 3*6], 
   First@HilbertCurve[6, 3]}},
 {b, {Tuples[Range[2^9] - 1, 2], 
   FromDigits[Partition[#, 2], 2] & /@ Tuples[{0, 1}, 2*9], 
   First@HilbertCurve[9, 2]}}]
</pre>

[![enter image description here][1]][1]

[![enter image description here][2]][2]

[![enter image description here][3]][3]

[![enter image description here][4]][4]

[![enter image description here][5]][5]

[![enter image description here][6]][6]

[![enter image description here][7]][7]

[![enter image description here][8]][8]

[![enter image description here][9]][9]


  [1]: https://i.sstatic.net/2Ftxh.png
  [2]: https://i.sstatic.net/acQPX.png
  [3]: https://i.sstatic.net/aRNwM.png
  [4]: https://i.sstatic.net/G22iR.png
  [5]: https://i.sstatic.net/pCrn9.png
  [6]: https://i.sstatic.net/JydQ0.png
  [7]: https://i.sstatic.net/FWuGi.png
  [8]: https://i.sstatic.net/DLbbH.png
  [9]: https://i.sstatic.net/phVgT.png