From 5fa5afc073bb7a21a9e19c43c2b11281af91f4fd Mon Sep 17 00:00:00 2001 From: hasufell Date: Sat, 15 Nov 2014 03:55:52 +0100 Subject: [PATCH] ALGO: rm obsolete test array --- Algorithms/RangeSearch/QuadTree.hs | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/Algorithms/RangeSearch/QuadTree.hs b/Algorithms/RangeSearch/QuadTree.hs index 393ee4c..c0bac9f 100644 --- a/Algorithms/RangeSearch/QuadTree.hs +++ b/Algorithms/RangeSearch/QuadTree.hs @@ -8,7 +8,6 @@ module Algorithms.RangeSearch.QuadTree lookupByPath', getSquareByZipper, rootNode, - testArr, Orient(North,East,West,South), Quad(NW,NE,SW,SE), QuadTree, @@ -201,15 +200,3 @@ lookupByNeighbors :: [Orient] -> Zipper a -> Maybe (Zipper a) lookupByNeighbors = flip (foldlM (flip findNeighbor)) -testArr :: [PT] -testArr = [p2 (200.0, 450.0), - p2 (400.0, 350.0), - p2 (100.0, 300.0), - p2 (25.0 , 350.0), - p2 (225.0, 225.0), - p2 (400.0, 150.0), - p2 (300.0, 100.0), - p2 (300.0, 300.0), - p2 (300.0, 350.0), - p2 (50.0 , 450.0), - p2 (100.0, 25.0)]