projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Use k-means instead of k-medians.
[master-thesis.git]
/
Parasitemia
/
Parasitemia
/
Heap.fs
diff --git
a/Parasitemia/Parasitemia/Heap.fs
b/Parasitemia/Parasitemia/Heap.fs
index
c2ab69f
..
39c6a4b
100644
(file)
--- a/
Parasitemia/Parasitemia/Heap.fs
+++ b/
Parasitemia/Parasitemia/Heap.fs
@@
-18,6
+18,7
@@
type Heap<'k, 'v when 'k : comparison> () =
if r < a.Count && a.[r].key > a.[max].key
then
max <- r
+
if max <> i
then
let tmp = a.[i]