projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleaning.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaCore
/
KdTree.fs
diff --git
a/Parasitemia/ParasitemiaCore/KdTree.fs
b/Parasitemia/ParasitemiaCore/KdTree.fs
index
94a3921
..
4513208
100644
(file)
--- a/
Parasitemia/ParasitemiaCore/KdTree.fs
+++ b/
Parasitemia/ParasitemiaCore/KdTree.fs
@@
-67,8
+67,8
@@
type Tree<'a when 'a :> I2DCoords> =
member this.Search (searchRegion: Region) : 'a list =
let rec valuesFrom (tree: Tree<'a>) : 'a list =
match tree with
member this.Search (searchRegion: Region) : 'a list =
let rec valuesFrom (tree: Tree<'a>) : 'a list =
match tree with
- | Leaf v -> [v]
| Node (_, part1, part2) -> (valuesFrom part1) @ (valuesFrom part2)
| Node (_, part1, part2) -> (valuesFrom part1) @ (valuesFrom part2)
+ | Leaf v -> [v]
let rec searchWithRegion (tree: Tree<'a>) (currentRegion: Region) (depth: int) : 'a list =
match tree with
let rec searchWithRegion (tree: Tree<'a>) (currentRegion: Region) (depth: int) : 'a list =
match tree with