Polynomial synthetic division: Difference between revisions
Content added Content deleted
m (→{{header|Tcl}}) |
m (→{{header|J}}) |
||
Line 7: | Line 7: | ||
Solving this the easy way: |
Solving this the easy way: |
||
<lang J> psd=: [:(}. ;{.) ([ (] -/@,:&}. (* {:)) ] , %&{.~)^:(>:@-~&#)~ |
<lang J> psd=: [:(}. ;{.) ([ (] -/@,:&}. (* {:)) ] , %&{.~)^:(>:@-~&#)~</lang> |
||
⚫ | |||
Task example: |
Task example: |
||
⚫ | |||
┌────────┬────┐ |
|||
│1 _9 _27│_123│ |
│1 _9 _27│_123│ |
||
└────────┴────┘ |
└────────┴────┘ |