Content added Content deleted
|
|
Line 349: |
Line 349: |
|
horner v x = foldl (\a b -> a*x + b) 0 (reverse v) |
|
horner v x = foldl (\a b -> a*x + b) 0 (reverse v) |
|
|
|
|
|
⚫ |
main = print $ horner [-19, 7, -4, 6] 3</lang> |
|
main = do |
|
⚫ |
print (horner [-19, 7, -4, 6] 3 )</lang> |
|
|
|
|
|
|
=={{header|HicEst}}== |
|
=={{header|HicEst}}== |