Sierpinski arrowhead curve: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 1,016:
{{out}}
See: [https://slack-files.com/T0CNUL56D-F01DPA9DNFP-53faf39637 sierpinski_arrowhead.svg] (offsite SVG image)
=={{header|Quackery}}==
Using an L-system.
<lang Quackery> [ $ "turtleduck.qky" loadfile ] now!
[ stack ] is switch.arg ( --> [ )
[ switch.arg put ] is switch ( x --> )
[ switch.arg release ] is otherwise ( --> )
[ switch.arg share
!= iff ]else[ done
otherwise ]'[ do ]done[ ] is case ( x --> )
[ $ "" swap witheach
[ nested quackery join ] ] is expand ( $ --> $ )
[ $ "L" ] is L ( $ --> $ )
[ $ "R" ] is R ( $ --> $ )
[ $ "BLALB" ] is A ( $ --> $ )
[ $ "ARBRA" ] is B ( $ --> $ )
$ "A"
6 times expand
turtle
witheach
[ switch
[ char L case [ -1 6 turn ]
char R case [ 1 6 turn ]
otherwise [ 4 1 walk ] ] ]</lang>
=={{header|Raku}}==
| |||