Euclidean distance in Haskell

jcla1 · jcla1 · commit a1452594f8fb · 2014-06-23T21:54:57.000+02:00
diff --git a/Euclidean_distance/Haskell/jcla1/euclidean_distance.hs b/Euclidean_distance/Haskell/jcla1/euclidean_distance.hs
@@ -0,0 +1,2 @@
+euclideanDistance :: [Double] -> [Double] -> Double
+euclideanDistance p q = sqrt . sum $ zipWith (\ u v -> (u-v)^2) p q

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+euclideanDistance :: [Double] -> [Double] -> Double`
	`2`	`+euclideanDistance p q = sqrt . sum $ zipWith (\ u v -> (u-v)^2) p q`