From dd38d0d1dda2be42bf280aeca110542f2f2fef1b Mon Sep 17 00:00:00 2001
From: Calvin <calvin@EESI>
Date: Tue, 28 May 2013 10:47:11 -0400
Subject: removed files

---
 src/nbc/score.sml | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 src/nbc/score.sml

(limited to 'src/nbc/score.sml')

diff --git a/src/nbc/score.sml b/src/nbc/score.sml
deleted file mode 100644
index 90d569a..0000000
--- a/src/nbc/score.sml
+++ /dev/null
@@ -1,30 +0,0 @@
-signature SCORE = sig
-	val score: int * real * (string -> int option) * real * string -> real
-end
-
-structure Score :> SCORE = struct
-	fun |> (x, f) = f x
-	infix |>
-
-	fun addCount (hitsum, fcount, gcount, totalWords) =
-		Kahan.add (hitsum, Real.fromInt fcount * Math.ln (Real.fromInt gcount / totalWords))
-	fun addNmer (totalWords, getGenomeCount) (nmer, ref fcount, (misses, anyhits, hitsum)) =
-		case getGenomeCount nmer of
-			NONE => (misses + 1, anyhits, hitsum)
-			| SOME gcount => (
-				misses, true
-				, addCount (hitsum, fcount, gcount, totalWords)
-			)
-	fun score (order, missConstant, getGenomeCount, totalWords, fragment) =
-		let
-			val add = addNmer (totalWords, getGenomeCount)
-			val seed = (0, false, Kahan.zero)
-			val (misses, anyhits, hitsum) =
-				Nmer.count (order, fragment) |> HashTable.foldi add seed
-		in
-			if anyhits then
-				Kahan.add (hitsum, Math.ln missConstant * Real.fromInt misses)
-				|> Kahan.sum
-			else Real.negInf
-		end
-end
-- 
cgit v1.2.3