Data update

2024-03-06 22:25:12 -08:00 · 2024-03-06 22:25:12 -08:00 · 0df55f9f24
commit 0df55f9f24
parent ed705008a8
2196 changed files with 32999 additions and 3075 deletions
--- a/Task/Sierpinski-triangle/Factor/sierpinski-triangle-1.factor
+++ b/Task/Sierpinski-triangle/Factor/sierpinski-triangle-1.factor
--- a/Task/Sierpinski-triangle/Factor/sierpinski-triangle-2.factor
+++ b/Task/Sierpinski-triangle/Factor/sierpinski-triangle-2.factor
@ -0,0 +1,15 @@
+USING: command-line io io.streams.string kernel math math.parser
+namespaces sequences ;
+IN: sierpinski
+
+: plot ( i j -- )
+    bitand zero? "* " "  " ? write ;
+
+: pad ( n -- )
+    1 - [ " " write ] times ;
+
+: plot-row ( n -- )
+    dup 1 + [ tuck - plot ] with each-integer ;
+
+: sierpinski ( n -- )
+    dup '[ _ over - pad plot-row nl ] each-integer ;