Skip to content

Added Graham Scan in Haskell #112

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 5 commits into from
Jun 8, 2018
Merged

Added Graham Scan in Haskell #112

Changes from 1 commit
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
0044a37
Added Graham Scan in Haskell
jiegillet May 14, 2018
1011c2a
Fixed merge issue with c code, modified angle function
jiegillet May 22, 2018
c6e153b
Added forgotten title for C
jiegillet May 30, 2018
1134af1
Added comments
jiegillet May 30, 2018
6f61ffe
Merge branch 'master' into grahamScan
leios Jun 8, 2018
File filter

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Added comments
  • Loading branch information
@jiegillet
jiegillet authored May 30, 2018
commit 1134af1972cd909a36bb6d237eff8d53bf03f610
2 changes: 2 additions & 0 deletions chapters/computational_geometry/gift_wrapping/graham_scan/code/haskell/grahamScan.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,5 +18,7 @@ grahamScan pts = wrap sortedPts [p0]
| otherwise = wrap ss (s:p1:p2:ps)

main = do
-- We build the set of points of integer coordinates within a circle of radius 5
let pts = [(x,y) | x<-[-5..5], y<-[-5..5], x^2+y^2<=5^2]
-- And extract the convex hull
print $ grahamScan pts