Permalink
Browse files

renaming

  • Loading branch information...
1 parent 8545f3c commit 2c0ee90dec9591e934aa9540f3d7e7b52c0ebeed @simonmar committed Mar 30, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 kmeans/kmeans.hs
View
@@ -264,9 +264,9 @@ addToPointSum (PointSum count ptsum) p
-- <<pointSumToCluster
pointSumToCluster :: Int -> PointSum -> Cluster
-pointSumToCluster i (PointSum count ptsum@(Point a b)) =
+pointSumToCluster i (PointSum count ptsum@(Point x y)) =
Cluster { clId = i
- , clCent = Point (a / fromIntegral count) (b / fromIntegral count)
+ , clCent = Point (x / fromIntegral count) (y / fromIntegral count)
}
-- >>

0 comments on commit 2c0ee90

Please sign in to comment.