Sierpinski curve: Difference between revisions
Content added Content deleted
(Added Fōrmulæ solution) |
(Added Quackery.) |
||
Line 859: | Line 859: | ||
main()</lang> |
main()</lang> |
||
=={{header|Quackery}}== |
|||
<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 ( $ --> $ ) |
|||
[ $ "F" ] is F ( $ --> $ ) |
|||
[ $ "G" ] is G ( $ --> $ ) |
|||
[ $ "AFLGLAFRRFRRAFLGLA" ] is A ( $ --> $ ) |
|||
$ "FRRAFRRFRRAF" |
|||
4 times expand |
|||
turtle 1 8 turn |
|||
witheach |
|||
[ switch |
|||
[ char L case [ -1 8 turn ] |
|||
char R case [ 1 8 turn ] |
|||
char A case [ ( ignore ) ] |
|||
otherwise [ 5 1 walk ] ] ] |
|||
-1 8 turn</lang> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |