Cantor set: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 2,798:
Next
End Sub</lang>
=={{header|Quackery}}==
===Using an L-System===
<lang Quackery> [ $ "" swap witheach
[ nested quackery join ] ] is expand ( $ --> $ )
[ $ "ABA" ] is A ( $ --> $ )
[ $ "BBB" ] is B ( $ --> $ )
[ char A = iff
[ char q ] else space
swap of echo$ ] is draw ( n c --> $ )
81 $ "A"
5 times
[ dup witheach
[ dip over draw ]
cr
i if
[ expand
dip [ 3 / ] ] ]
2drop
</lang>
{{out}}
<pre>qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
qqqqqqqqqqqqqqqqqqqqqqqqqqq qqqqqqqqqqqqqqqqqqqqqqqqqqq
qqqqqqqqq qqqqqqqqq qqqqqqqqq qqqqqqqqq
qqq qqq qqq qqq qqq qqq qqq qqq
q q q q q q q q q q q q q q q q
</pre>
=={{header|R}}==
| |||