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-09 17:22:41 +02:00
parent 8a2ef92fa7
commit 9c9cb29e45
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Algorithms/ConvexHull.hs
View File

@ -62,7 +62,7 @@ grahamGetCH vs = f . grahamSort $ vs
where where
f (x:y:z:xs) f (x:y:z:xs)
| ccw x y z = x : f (y:z:xs) | ccw x y z = x : f (y:z:xs)
| otherwise = f (x:z:xs) | otherwise = f (x:z:xs)
f xs = xs f xs = xs
@ -73,11 +73,11 @@ grahamGetCHSteps vs = reverse . g $ (length vs - 2)
where where
vs' = grahamSort vs vs' = grahamSort vs
g c g c
| c >= 0 = f 0 vs' : g (c - 1) | c >= 0 = f 0 vs' : g (c - 1)
| otherwise = [] | otherwise = []
where where
f c' (x:y:z:xs) f c' (x:y:z:xs)
| c' >= c = [x,y] | c' >= c = [x,y]
| ccw x y z = x : f (c' + 1) (y:z:xs) | ccw x y z = x : f (c' + 1) (y:z:xs)
| otherwise = f (c' + 1) (x:z:xs) | otherwise = f (c' + 1) (x:z:xs)
f _ xs = xs f _ xs = xs