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

ALGO: improve style

Browse Source
This commit is contained in:
hasufell 2014-10-13 22:30:19 +02:00
parent 8300929fd7
commit 077d0442f5
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Algorithms/ConvexHull/GrahamScan.hs
View File

@ -100,12 +100,12 @@ scanH :: [PT] -- ^ the first 3 starting points in reversed order
-> [PT] -- ^ the rest of the points -> [PT] -- ^ the rest of the points
-> [[PT]] -- ^ all convex hull points iterations for the half -> [[PT]] -- ^ all convex hull points iterations for the half
scanH hs@(x:y:z:xs) (r':rs') scanH hs@(x:y:z:xs) (r':rs')
| notcw z y x = [hs] ++ scanH (r':hs) rs' | notcw z y x = hs : scanH (r':hs) rs'
| otherwise = [hs] ++ scanH (x:z:xs) (r':rs') | otherwise = hs : scanH (x:z:xs) (r':rs')
scanH hs@(x:y:z:xs) [] scanH hs@(x:y:z:xs) []
| notcw z y x = [hs] | notcw z y x = [hs]
| otherwise = [hs] ++ scanH (x:z:xs) [] | otherwise = hs : scanH (x:z:xs) []
scanH hs (r':rs') = [hs] ++ scanH (r':hs) rs' scanH hs (r':rs') = hs : scanH (r':hs) rs'
scanH hs _ = [hs] scanH hs _ = [hs]