Sierpinski carpet: Difference between revisions

Content added Content deleted

Inline

@@ Line 225: / Line 225: @@
 </pre>
+=={{header|APL}}==
+{{works with|Dyalog APL}}
+<lang APL>carpet←{{⊃⍪/,⌿3 3⍴4 0 4\⊂⍵}⍣⍵⊢⍪'#'}</lang>
+{{out}}
+<pre>
+      carpet 0
+#
+      carpet 1
+###
+# #
+###
+      carpet 2
+#########
+# ## ## #
+#########
+###   ###
+# #   # #
+###   ###
+#########
+# ## ## #
+#########
+      carpet 3
+###########################
+# ## ## ## ## ## ## ## ## #
+###########################
+###   ######   ######   ###
+# #   # ## #   # ## #   # #
+###   ######   ######   ###
+###########################
+# ## ## ## ## ## ## ## ## #
+###########################
+#########         #########
+# ## ## #         # ## ## #
+#########         #########
+###   ###         ###   ###
+# #   # #         # #   # #
+###   ###         ###   ###
+#########         #########
+# ## ## #         # ## ## #
+#########         #########
+###########################
+# ## ## ## ## ## ## ## ## #
+###########################
+###   ######   ######   ###
+# #   # ## #   # ## #   # #
+###   ######   ######   ###
+###########################
+# ## ## ## ## ## ## ## ## #
+###########################</pre>
 =={{header|AppleScript}}==