Horner's rule for polynomial evaluation: Difference between revisions
Content added Content deleted
m (alphabetized list; minor markup edits to rexx sample outputs) |
(Alternate function→{{header|J}}) |
||
Line 328: | Line 328: | ||
=={{header|J}}== |
=={{header|J}}== |
||
'''Solution''':<lang j |
'''Solution''':<lang j> |
||
horner =: (#."0 _ |.)~ |
|||
horner2=: [: +`*/ [: }: ,@,. NB. Alternate |
|||
</lang> |
|||
'''Example''':<lang j> _19 7 _4 6 horner 3 |
'''Example''':<lang j> _19 7 _4 6 horner 3 |
||
128</lang> |
128</lang> |