Cantor set: Difference between revisions

m
(Added Arturo implementation)
Line 2,191:
*** *** *** *** *** *** *** ***
* * * * * * * * * * * * * * * *</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Graphics[MeshPrimitives[CantorMesh[#],1]/.{x_}:>{x,-0.05#}&/@Range[5],ImageSize->600]</lang>
{{out}}
1,111

edits