Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Pythagoras-tree/J/pythagoras-tree.j
+++ b/Task/Pythagoras-tree/J/pythagoras-tree.j
@ -0,0 +1,23 @@
+require'plot'
+
+Pt=: {{
+  if. 0<m do.
+    d=. 0j1*y-x
+    p2=. y+d
+    p3=. x+d
+    p4=. (0.5*x+y)+1.5*d
+    pd x,y,p2,p3
+    p3 (<:m) Pt p4
+    p4 (<:m) Pt p2
+  end.
+}}
+
+
+Pytree=: {{
+  pd 'reset'
+  pd 'type poly'
+  5r2j4 y Pt 7r2j4
+  pd 'show'
+}}
+
+Pytree 7