From: Michael Orlitzky Date: Tue, 11 Feb 2014 20:25:49 +0000 (-0500) Subject: Update Integration.Gaussian to use zip2. X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=46f18f6dd356db75b77bd95a15260c7c1a817bff;p=numerical-analysis.git Update Integration.Gaussian to use zip2. --- diff --git a/src/Integration/Gaussian.hs b/src/Integration/Gaussian.hs index be92e5c..6eb46f6 100644 --- a/src/Integration/Gaussian.hs +++ b/src/Integration/Gaussian.hs @@ -24,13 +24,13 @@ import Linear.Matrix ( Col, Col10, Mat(..), - colzipwith, construct, fromList, identity_matrix, map2, row, - transpose ) + transpose, + zipwith2 ) import Linear.QR ( eigenvectors_symmetric ) import Normed ( Normed(..) ) @@ -213,4 +213,4 @@ gaussian' f nodes weights = norm_p (1::Int) weighted_values where function_values = map2 f nodes - weighted_values = colzipwith (*) weights function_values + weighted_values = zipwith2 (*) weights function_values