RosettaCodeData/Task/Numerical-integration/Haskell/numerical-integration-1.hs

2 lines
52 B
Haskell

approx f xs ws = sum [w * f x | (x,w) <- zip xs ws]