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

ALGO: avoid printing KTNil for both childs

Browse Source
This commit is contained in:
hasufell 2014-11-30 20:04:02 +01:00
parent 968262d935
commit 78a3dd8b95
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Algorithms/KDTree/KDTree.hs
View File

@ -125,7 +125,9 @@ rangeSearch kd' sq' = (goPt kd' sq', goTree kd' sq' True)
-- 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" []
goTree (KTNode ln pt dir rn) sq vis = goTree (KTNode ln pt dir rn) sq vis
| ln == KTNil && rn == KTNil = Node treeText []
| otherwise =
Node treeText Node treeText
[if' (p1' dir sq < (cur' dir . unp2 $ pt)) [if' (p1' dir sq < (cur' dir . unp2 $ pt))
(goTree ln sq vis) (goTree ln sq vis)