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

ALGO: rm obsolete test array

Browse Source
This commit is contained in:
hasufell 2014-11-15 03:55:52 +01:00
parent 3d42e7d62d
commit 5fa5afc073
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Algorithms/RangeSearch/QuadTree.hs
View File

@ -8,7 +8,6 @@ module Algorithms.RangeSearch.QuadTree
lookupByPath', lookupByPath',
getSquareByZipper, getSquareByZipper,
rootNode, rootNode,
testArr,
Orient(North,East,West,South), Orient(North,East,West,South),
Quad(NW,NE,SW,SE), Quad(NW,NE,SW,SE),
QuadTree, QuadTree,
@ -201,15 +200,3 @@ lookupByNeighbors :: [Orient] -> Zipper a -> Maybe (Zipper a)
lookupByNeighbors = flip (foldlM (flip findNeighbor)) 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)]