diff options
Diffstat (limited to 'motus/js/initialize.ml')
| -rw-r--r-- | motus/js/initialize.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/motus/js/initialize.ml b/motus/js/initialize.ml index 9375880..b721343 100644 --- a/motus/js/initialize.ml +++ b/motus/js/initialize.ml @@ -28,14 +28,9 @@ let get_proposition : let elements = Wordlist.list_size wordlist in if elements > 2000 then Freq_analysis.analyse wordlist |> Freq_analysis.pick_next_word wordlist - else if elements > 1 - then + else let _, word = Entropy.analyse length ~catalog wordlist in word - else - match Wordlist.pick wordlist with - | Some w -> w - | None -> "" in match String.equal String.empty word with | true -> None |