fix phrase counter (#13)

fsharplang-ru · Jun 13, 2024 · 7bbb7c5 · 7bbb7c5
1 parent ea38d2c
commit 7bbb7c5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/VahterBanBot/Antispam.fs b/src/VahterBanBot/Antispam.fs
@@ -25,6 +25,7 @@ let phrases = [
     10, [ "обучение"; "бесплатное" ]
     10, [ "бесплатное"; "обучение" ]
     7, [ "удаленная"; "работа" ]
+    7, [ "удаленный"; "заработок" ]
     7, [ "удаленную"; "работу" ]
     3, [ "в"; "лс" ]
     3, [ "в"; "личку" ]
@@ -42,6 +43,8 @@ let countPhrases (wl: string list) =
                 countPhrase (List.skip ps.Length ws) (totalScore + score) phrase
             else
                 countPhrase ws totalScore phrase
+        | _ :: ws ->
+            countPhrase ws totalScore phrase
         | _ -> totalScore
 
     List.sumBy (countPhrase wl 0) phrases