[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:01484] Re: [guess] 6:00より1時間



乃村です.遅刻しそうなので,手短に.

On Tue, 16 Oct 2001 12:19:11 +0900,
	KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx> said:

> 日時10/17(水)PM:6:00より1時間程度(3F会議室)
> 
> これ↑の時刻のguessでは
> まず「1時」にマッチして
> C-pすると「6:00より1時間」にマッチします。
> なぜでしょう。

':' より '時' を優先するようになっていたからです.
多くの場合,これでいいんですが,今回は変ですね.

マッチした文字列の長さも評価の対象にするように
してみました.コミットは後でやります.
--
nom

RCS file: /cvsroot/mhc/emacs/mhc-guess.el,v
retrieving revision 1.13
diff -u -r1.13 mhc-guess.el
--- mhc-guess.el	2001/07/16 06:34:39	1.13
+++ mhc-guess.el	2001/10/16 03:58:21
@@ -48,7 +48,8 @@
 ;;    のような条件と加点/減点を表す mhc-guess-keyword-score-alist に基
 ;;    づいて採点をする。
 ;;
-;; 3. 得点順に、sort して返す
+;; 3. 得点順 (得点が同じ場合は,日付や時間を表わす文字列が長い順)
+;;    に sort して返す
 
 ;;;
 ;;; Code:
@@ -184,9 +185,13 @@
 			  mhc-guess-keyword-score-alist
 			  hint1
 			  now)))
-    (sort score-list (function (lambda (a b) (< (mhc-guess-get-score b)
-						(mhc-guess-get-score a)))))))
-
+    (sort score-list 
+	  (function (lambda (a b) 
+		      (if (= (mhc-guess-get-score a) (mhc-guess-get-score b))
+			  (< (- (mhc-guess-get-end b) (mhc-guess-get-begin b))
+			     (- (mhc-guess-get-end a) (mhc-guess-get-begin a)))
+			(< (mhc-guess-get-score b)
+			   (mhc-guess-get-score a))))))))
 ;;
 ;; gather date/time.
 ;;