Sierpinski curve: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,366: / Line 1,366: @@
 times expand
-  turtle 1 8 turn
+  [ $ "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"
+times expand
+  turtle
+frames
+8 turn
   witheach
     [ switch
@@ Line 1,373: / Line 1,405: @@
           char A case [ ( ignore ) ]
           otherwise [ 5 1 walk ] ] ]
-  -1 8 turn</syntaxhighlight>
+  -1 8 turn
+frames</syntaxhighlight>
 {{output}}