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

ALGO: rm empty 'where' in KDTree

Browse Source
This commit is contained in:
hasufell 2014-12-07 04:47:19 +01:00
parent 8abe795add
commit f16fe7738a
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Algorithms/KDTree.hs
View File

@ -121,7 +121,6 @@ rangeSearch kd' sq' = (goPt kd' sq', goTree kd' sq' True)
++ (if' ((cur' dir . unp2 $ pt) < p2' dir sq) ++ (if' ((cur' dir . unp2 $ pt) < p2' dir sq)
(goPt rn sq) (goPt rn sq)
[]) [])
where
-- A pretty rose tree suitable for printing. -- A pretty rose tree suitable for printing.
goTree :: KDTree PT -> Square -> Bool -> Tree String goTree :: KDTree PT -> Square -> Bool -> Tree String
goTree KTNil _ _ = Node "nil" [] goTree KTNil _ _ = Node "nil" []