June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Polynomial-long-division/APL/polynomial-long-division.apl
+++ b/Task/Polynomial-long-division/APL/polynomial-long-division.apl
@ -0,0 +1,8 @@
+div←{
+    {
+        q r d←⍵
+        (≢d) > n←≢r : q r
+        c ← (⊃⌽r) ÷ ⊃⌽d
+        ∇ (c,q) ((¯1↓r) - c × ¯1↓(-n)↑d) d
+    } ⍬ ⍺ ⍵
+}