diff --git a/Algorithms/ConvexHull.hs b/Algorithms/ConvexHull.hs index 45e699e..4262c02 100644 --- a/Algorithms/ConvexHull.hs +++ b/Algorithms/ConvexHull.hs @@ -66,7 +66,7 @@ grahamGetCH vs = f . grahamSort $ vs f xs = xs --- |Only compute steps of the graham scan algorithm to allow +-- |Compute all steps of the graham scan algorithm to allow -- visualizing it. grahamGetCHSteps :: [PT] -> [[PT]] grahamGetCHSteps vs = reverse . g $ (length . grahamGetCH $ vs) diff --git a/LinearAlgebra/Vector.hs b/LinearAlgebra/Vector.hs index 8a9e0fe..916cf43 100644 --- a/LinearAlgebra/Vector.hs +++ b/LinearAlgebra/Vector.hs @@ -62,7 +62,7 @@ vp2 a b = (pt2Vec b) - (pt2Vec a) -- |Checks if 3 points a,b,c build a counterclock wise triangle by --- connecting a-b-c. This is done by computing thed determinant and +-- connecting a-b-c. This is done by computing the determinant and -- checking the algebraic sign. ccw :: PT -> PT -> PT -> Bool ccw a b c = (bx - ax) *