diff --git a/ALANN/Program.fs b/ALANN/Program.fs index f3cdbb205341431b1fa5b94af3e1f94cbfd371c7..46c3f88557194a802808ace8c843e32729b2bbd5 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