[mhc:01484] Re: [guess] ６：００より１時間

[Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx>]

乃村です．遅刻しそうなので，手短に．

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

> 日時１０／１７（水）PM：６：００より１時間程度（３F会議室）
> 
> これ↑の時刻のguessでは
> まず「１時」にマッチして
> C-pすると「６：００より１時間」にマッチします。
> なぜでしょう。

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

マッチした文字列の長さも評価の対象にするように
してみました．コミットは後でやります．
--
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.
 ;;