hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve prettiness further

Browse Source
This commit is contained in:
hasufell 2014-11-16 04:49:13 +01:00
parent 9c7acc6dce
commit 62583d82a5
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Algorithms/ConvexHull/GrahamScan.hs
View File

@ -119,10 +119,10 @@ grahamCHSteps c xs' ys' = take c . scanH xs' $ ys'
-- |Get all iterations of the upper hull of the graham scan algorithm. -- |Get all iterations of the upper hull of the graham scan algorithm.
grahamUHSteps :: [PT] -> [[PT]] grahamUHSteps :: [PT] -> [[PT]]
grahamUHSteps vs = grahamUHSteps vs =
(++) [getLastX 2 . sortedXY $ vs] . (++) [getLastX 2 . sortedXY $ vs]
rmdups . . rmdups
grahamCHSteps ((* 2) . length $ vs) uH $ . grahamCHSteps ((* 2) . length $ vs) uH
uHRest $ uHRest
where where
(uH, uHRest) = first reverse . splitAt 3 . reverse . sortedXY $ vs (uH, uHRest) = first reverse . splitAt 3 . reverse . sortedXY $ vs
@ -130,9 +130,9 @@ grahamUHSteps vs =
-- |Get all iterations of the lower hull of the graham scan algorithm. -- |Get all iterations of the lower hull of the graham scan algorithm.
grahamLHSteps :: [PT] -> [[PT]] grahamLHSteps :: [PT] -> [[PT]]
grahamLHSteps vs = grahamLHSteps vs =
(++) [take 2 . sortedXY $ vs] . (++) [take 2 . sortedXY $ vs]
rmdups . . rmdups
grahamCHSteps ((* 2) . length $ vs) lH $ . grahamCHSteps ((* 2) . length $ vs) lH
lHRest $ lHRest
where where
(lH, lHRest) = first reverse . splitAt 3 . sortedXY $ vs (lH, lHRest) = first reverse . splitAt 3 . sortedXY $ vs