Polynomial synthetic division: Difference between revisions

Content added Content deleted

Inline

@@ Line 142: / Line 142: @@
 =={{header|REXX}}==
-<lang rexx>/* REXX Polynom Division */
+<lang rexx>/* REXX Polynomial Division                */
+/* extended to support order of divisor >1 */
+call set_dd '1 0 0 0 -1'
+Call set_dr '1 1 1 1'
 Call set_dd '1 -12 0 -42'
 Call set_dr '1 -3'
 q.0=0
+Say list_dd '/' list_dr
-do While dd.0>1
+do While dd.0>=dr.0
   q=dd.1/dr.1
-  Do j=1 To 2
+  Do j=1 To dr.0
     dd.j=dd.j-q*dr.j
     End
@@ Line 154: / Line 158: @@
   Call shift_dd
   End
+say 'Quotient:' mk_list_q() 'Remainder:' mk_list_dd()
-Say list_dd '/' list_dr
-say 'Quotient:' mk_list_q() 'Remainder:' dd.1
 Exit
@@ Line 199: / Line 202: @@
   list=list','q.i
   End
-Return list']'</lang>
+Return list']'
+mk_list_dd:
+list='['dd.1''
+Do i=2 To dd.0
+  list=list','dd.i
+  End
+Return list']'
+</lang>
 {{out}}
 <pre>[1,-12,0,-42] / [1,-3]