From 6d05a63b3e8bd86c6f4dc4eae79b957897112eaf Mon Sep 17 00:00:00 2001
From: TonyLo1 <tony_lofthouse@btinternet.com>
Date: Thu, 30 Jul 2015 17:19:11 +0100
Subject: [PATCH] Initial ALANN commit
---
ALANN/Program.fs | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/ALANN/Program.fs b/ALANN/Program.fs
index f3cdbb2..46c3f88 100644
--- a/ALANN/Program.fs
+++ b/ALANN/Program.fs
@@ -115,13 +115,10 @@ let main argv =
let sc = belief.Stamp.SC
let c = belief.J.TV.C
- // update retention value
- belief.Stamp.Retention <- calcRetentionValue belief
-
// if list is beyond capacity remove lowest retention value
let beliefs =
if state.Beliefs |> List.length > 20 then
- let min = state.Beliefs |> List.minBy (fun b -> b.Stamp.Retention)
+ let min = state.Beliefs |> List.minBy (fun b -> calcRetentionValue belief)
state.Beliefs |> remove min
else
state.Beliefs
--
GitLab