Horner's rule for polynomial evaluation: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 246: | Line 246: | ||
main = do |
main = do |
||
print (horner [-19, 7, -4, 6] 3)</lang> |
print (horner [-19, 7, -4, 6] 3)</lang> |
||
=={{header|HicEst}}== |
|||
<lang HicEst>REAL :: x=3, coeffs(4) |
|||
DATA coeffs/-19.0, 7.0, -4.0, 6.0/ |
|||
WRITE(Messagebox) Horner(coeffs, x) ! shows 128 |
|||
FUNCTION Horner(c, x) |
|||
DIMENSION c(1) |
|||
Horner = 0 |
|||
DO i = LEN(c), 1, -1 |
|||
Horner = x*Horner + c(i) |
|||
ENDDO |
|||
END</lang> |
|||
=={{header|J}}== |
=={{header|J}}== |
||