allja1.lisp: update digital sections

autodyne · Apr 8, 2024 · 1453cec · 1453cec
1 parent c2e5371
commit 1453cec
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/src/main/resources/qxsl/ruler/allja1.lisp b/src/main/resources/qxsl/ruler/allja1.lisp
@@ -17,7 +17,6 @@
 ; area validation
 (defun 内? it
 	(cond
-		((DIGIT? it) (every it 現存? 市郡?))
 		((AREA1? it) (every it 現存? 市郡?))
 		((AREA8? it) (every it 現存? 支庁?))
 		((always it) (every it 現存? 府県?))))

diff --git a/src/test/resources/qxsl/ruler/allja1.test b/src/test/resources/qxsl/ruler/allja1.test
@@ -42,19 +42,19 @@
 1エリア内 団体 電信電話 部門,           0,      0, cqww:ctxt:jarl
 1エリア外 団体 電信限定 部門,           0,      0, cqww:ctxt:jarl
 1エリア外 団体 電信電話 部門,           0,      0, cqww:ctxt:jarl
-1エリア内 個人 デジタル 部門,          66,   4290, qxml:adis:adxs:cbin:cqww:ctxt:jarl
+1エリア内 個人 デジタル 部門,          19,    342, qxml:adis:adxs:cbin:cqww:ctxt:jarl
 1エリア外 個人 デジタル 部門,          16,    240, qxml:adis:adxs:cbin:cqww:ctxt:jarl
 1エリア内 個人 デジタル 部門,           0,      0, zall:zbin:zdos:znew
 1エリア外 個人 デジタル 部門,           0,      0, zall:zbin:zdos:znew
-1エリア内 団体 デジタル 部門,          66,    613, qxml:adis:adxs:cbin
+1エリア内 団体 デジタル 部門,          19,     49, qxml:adis:adxs:cbin
 1エリア外 団体 デジタル 部門,          16,     35, qxml:adis:adxs:cbin
 1エリア内 団体 デジタル 部門,           0,      0, cqww:ctxt:jarl:zall:zbin:zdos:znew
 1エリア外 団体 デジタル 部門,           0,      0, cqww:ctxt:jarl:zall:zbin:zdos:znew
-1エリア内 個人 総合 部門,             476, 178024, qxml:adis:adxs:cbin:cqww:ctxt:jarl
+1エリア内 個人 総合 部門,             429, 139425, qxml:adis:adxs:cbin:cqww:ctxt:jarl
 1エリア外 個人 総合 部門,             248,  53568, qxml:adis:adxs:cbin:cqww:ctxt:jarl
 1エリア内 個人 総合 部門,             410, 127100, zall:zbin:zdos:znew
 1エリア外 個人 総合 部門,             232,  46864, zall:zbin:zdos:znew
-1エリア内 団体 総合 部門,             476,  25432, qxml:adis:adxs:cbin
+1エリア内 団体 総合 部門,             429,  19918, qxml:adis:adxs:cbin
 1エリア外 団体 総合 部門,             248,   7653, qxml:adis:adxs:cbin
 1エリア内 団体 総合 部門,             410,  18158, zall:zbin:zdos:znew
 1エリア外 団体 総合 部門,             232,   6695, zall:zbin:zdos:znew