From 1c131825abb90c5f12f3a801173d415c2cc41f6e Mon Sep 17 00:00:00 2001 From: hasufell Date: Wed, 14 Jan 2015 17:50:20 +0100 Subject: [PATCH] ALGO: rm unused testArr --- Algorithms/PolygonIntersection.hs | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/Algorithms/PolygonIntersection.hs b/Algorithms/PolygonIntersection.hs index b5fa253..5969b43 100644 --- a/Algorithms/PolygonIntersection.hs +++ b/Algorithms/PolygonIntersection.hs @@ -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)])