Skip to content

H
haskell-gargantext
Unverified Commit 46c8a816 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

Eleve use findTrieR

parent 75af58a2
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 4 deletions
src/Gargantext/Text/Eleve.hs
View file @ 46c8a816
...@@ -437,10 +437,7 @@ testEleve debug n output checks = do ...@@ -437,10 +437,7 @@ testEleve debug n output checks = do
checker (ngram, count, entropy, ev, autonomy, fwd_entropy, fwd_ev, fwd_autonomy, bwd_entropy, bwd_ev, bwd_autonomy) = do checker (ngram, count, entropy, ev, autonomy, fwd_entropy, fwd_ev, fwd_autonomy, bwd_entropy, bwd_ev, bwd_autonomy) = do
let ns = parseToken <$> T.words ngram let ns = parseToken <$> T.words ngram
t' = findTrie ns t nt' = findTrieR ns nt
-- tvar = findTrie ns t''
-- my_entropy_var = nodeEntropy identity tvar
nt' = findTrie ns nt
P.putStrLn $ " " <> T.unpack ngram <> ":" P.putStrLn $ " " <> T.unpack ngram <> ":"
check (==) "count" count (_node_count (_fwd t')) check (==) "count" count (_node_count (_fwd t'))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment