Sierpinski arrowhead curve: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 1,016: | Line 1,016: | ||
{{out}} |
{{out}} |
||
See: [https://slack-files.com/T0CNUL56D-F01DPA9DNFP-53faf39637 sierpinski_arrowhead.svg] (offsite SVG image) |
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}}== |
=={{header|Raku}}== |