split 分かり切る

tshatrov · Jul 22, 2020 · 7c2b2ee · 7c2b2ee
1 parent 5c3e488
commit 7c2b2ee
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/dict-split.lisp b/dict-split.lisp
@@ -623,6 +623,10 @@
   (1896380 1)
   (2728200))
 
+(def-simple-split nil 1606530 100 (len txt) ;;　わかりきる
+  (("分かり" 1606560) 3)
+  (1384830 nil t))
+
 ;; SEGMENT SPLITS (allows to expand one segment into several, e.g. "ところが" "ところ+が")
 
 (defparameter *segsplit-map* (make-hash-table)) ;; seq -> split function

diff --git a/tests.lisp b/tests.lisp
@@ -534,6 +534,7 @@
   (assert-segment "口論のあげくに殴り合いになった" "口論" "の" "あげく" "に" "殴り合い" "に" "なった")
   (assert-segment "お手数おかけします" "お手数" "おかけします")
   (assert-segment "30分後におかけ直しください" "30分" "後" "に" "お" "かけ直し" "ください")
+  (assert-segment "わかりきった" "わかりきった")
   )
 
 (define-test json-consistency-test