joshua/nominal-lstar
1
Fork 0
mirror of https://github.com/Jaxan/nominal-lstar.git synced 2025-04-27 06:37:45 +02:00
Code Issues Releases Activity

Optimization of consistencyTestDirect.candidates function.

Browse source
This commit is contained in:
Michał Szynwelski 2016-06-26 20:22:20 +02:00
parent ec5fe35c79
commit a9b3738cd3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Angluin.hs
View file

@ -28,7 +28,8 @@ consistencyTestDirect State{..} = case solve (isEmpty defect) of
Just True -> Succes
Just False -> trace "Not consistent" $ Failed empty defect
where
candidates = pairsWithFilter (\u1 u2 -> maybeIf (u1 `neq` u2 /\ row t u2 `eq` row t u1) (u1, u2)) ss ss
ssRows = map (\u -> (u, row t u)) ss
candidates = pairsWithFilter (\(u1,r1) (u2,r2) -> maybeIf (u1 `neq` u2 /\ r1 `eq` r2) (u1, u2)) ssRows ssRows
defect = triplesWithFilter (\(u1, u2) a v -> maybeIf (tableAt t (u1 ++ [a]) v `diff` tableAt t (u2 ++ [a]) v) (a:v)) candidates aa ee
diff a b = not (a `iff` b)
@ -106,4 +107,4 @@ consistencyTestB State{..} = case solve (isEmpty defect) of
defect = pairsWithFilter (
\(s1, s2) a -> maybeIf (candidate1 s1 s2 a) ((s1, s2, a), discrepancy (rowa t s1 a) (rowa t s2 a))
) rowPairs aa
columns = sum $ map (\((s1,s2,a),es) -> map (a:) es) defect
columns = sum $ map (\((s1,s2,a),es) -> map (a:) es) defect