blob: 9d07a853e8d4f4558edfa7875ad2c6d1b04bddf3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
open StdLabels
open Note
open Motus_lib
open Brr
type t =
{ length : int
; content : (int * Jstr.t, Jv.Error.t) result
; sender : (int * Jstr.t * Validity.t) E.send
; proposition : State.proposition
}
(** Pick the next word from the dictionnary, and return it as a proposition.
If the word is empty (no word) return [None], else return a proposition
which can be edited by the user.
The rule list is used to identify the letter already fixed by the previous
results. *)
let get_proposition :
int -> Wordlist.t -> Criteria.t list -> State.proposition option =
fun length wordlist rules ->
Printf.printf "Number of elements : %d\n" (Wordlist.list_size wordlist);
let word =
if Wordlist.list_size wordlist > 2000
then Freq_analysis.analyse wordlist |> Freq_analysis.pick_next_word wordlist
else
let _, word = Entropy.analyse length wordlist in
word
in
match String.equal String.empty word with
| true -> None
| false ->
let i = ref 0 in
let proposition =
word
|> String.to_seq
|> Seq.map (fun c ->
let wellplaced =
List.exists rules ~f:(function
| Motus_lib.Criteria.Contain (_, Some i') when !i = i' ->
true
| _ -> false )
in
incr i;
let validity =
match wellplaced with
| true -> Validity.Wellplaced
| _ -> Validity.Missing
in
Some (Jstr.of_char c, validity) )
|> List.of_seq
in
Some proposition
let process { sender; length; content; proposition } state =
match content with
| Ok (200, value) ->
let rules =
Criteria.Lenght length :: State.get_current_rules proposition
in
let words = Jstr.cuts ~sep:(Jstr.v "\n") value in
let analysis =
List.to_seq words
|> Seq.map (fun w -> Jstr.(to_string (uppercased w)))
|> Wordlist.add_words rules
in
let current_prop = get_proposition length analysis rules
and fields = FieldList.make length sender in
( match current_prop with
| None -> state
| Some prop ->
FieldList.set_with_props prop fields rules;
State.
{ analysis
; rules
; length
; current_prop = prop
; propositions = []
; fields
} )
| _ ->
Console.(log [ Jstr.v "No words found" ]);
state
|