Horner's rule for polynomial evaluation: Difference between revisions
Content added Content deleted
(→{{header|J}}: cleanup spacing & naming) |
m (→{{header|J}}: missed a space) |
||
Line 908: | Line 908: | ||
=={{header|J}}== |
=={{header|J}}== |
||
'''Solution''':<lang j> |
'''Solution''':<lang j> |
||
horner =: (#."0 _ |.)~ NB. Tacit |
horner =: (#."0 _ |.)~ NB. Tacit |
||
horner =: [: +`*/ [: }: ,@,. NB. Alternate tacit (equivalent) |
horner =: [: +`*/ [: }: ,@,. NB. Alternate tacit (equivalent) |
||
horner =: 4 : ' (+ *&y)/x' NB. Alternate explicit (equivalent) |
horner =: 4 : ' (+ *&y)/x' NB. Alternate explicit (equivalent) |