Data commit

Task/Polynomial-long-division/Sidef/polynomial-long-division-1.sidef

@@ -0,0 +1,20 @@
+func poly_long_div(rn, rd) {
+ 
+    var n = rn.map{_}
+    var gd = rd.len
+ 
+    if (n.len >= gd) {
+        return(gather {
+            while (n.len >= gd) {
+                var piv = n[0]/rd[0]
+                take(piv)
+                { |i|
+                    n[i] -= (rd[i] * piv)
+                } << ^(n.len `min` gd)
+                n.shift
+            }
+        }, n)
+    }
+ 
+    return([0], rn)
+}

Task/Polynomial-long-division/Sidef/polynomial-long-division-2.sidef

@@ -0,0 +1,22 @@
+func poly_print(c) {
+    var l = c.len
+    c.each_kv {|i, n|
+        print n
+        print("x^", (l - i - 1), " + ") if (i < l-1)
+    }
+    print "\n";
+}
+
+var poly = [
+    Pair([1,-12,0,-42],  [1, -3]),
+    Pair([1,-12,0,-42], [1,1,-3]),
+    Pair(      [1,3,2],    [1,1]),
+    Pair( [1,-4,6,5,3],  [1,2,1]),
+]
+
+poly.each { |pair|
+    var (q, r) = poly_long_div(pair.first, pair.second)
+    poly_print(q)
+    poly_print(r)
+    print "\n"
+}