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

ALGO: rm unused testArr

This commit is contained in:
hasufell 2015-01-14 17:50:20 +01:00
parent eb1142b52f
commit 1c131825ab
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Algorithms/PolygonIntersection.hs
View File

@ -136,15 +136,3 @@ intersectionPoints xs' = rmdups . go $ xs'
combinations :: [a] -> [a] -> [[a]]
combinations xs ys = concat . fmap (\y -> fmap (\x -> [y, x]) xs) $ ys
testArr :: ([PT], [PT])
testArr = ([p2 (200.0, 500.0),
p2 (0.0, 200.0),
p2 (200.0, 100.0),
p2 (400.0, 300.0)],
[p2 (350.0, 450.0),
p2 (275.0, 225.0),
p2 (350.0, 50.0),
p2 (500.0, 0.0),
p2 (450.0, 400.0)])