Sierpinski triangle/Graphical: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,115: / Line 2,115: @@
  *** END STR Sat Apr 01 21:59:07 2017
 </pre>
+=={{header|Quackery}}==
+<lang Quackery>  $ "turtleduck.qky" loadfile
+  [ 1 & ]                 is odd        (   n --> b )
+  [ 4 times
+      [ 2dup walk
+4 turn ]
+drop ]               is square     ( n/d -->   )
+  [ dup
+    witheach
+      [ odd if
+          [ ' [ 0 0 0 ] fill
+              [ 2 1 square ] ]
+1 fly ]
+     size -2 * 1 fly
+4 turn
+1 fly
+     -1 4 turn ]          is showline   (   [ -->   )
+  [ [] 0 rot 0 join
+    witheach
+     [ tuck +
+       rot join swap ]
+    drop ]                is nextline   (   [ --> [ )
+  [ ' [ 1 ] swap
+    bit
+- times
+      [ dup showline
+        nextline ]
+    showline ]            is sierpinski (   n -->   )
+  turtle
+8 turn
+1 fly
+8 turn
+sierpinski</lang>
 =={{header|Racket}}==