[mew-dist 22273] Re: accelerating by-folder

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20021114.003429.68546008.kazu at example.com>
  Date:       Thu, 14 Nov 2002 00:34:29 +0900 (JST)
  From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
  Subject:    [mew-dist 22268] Re: accelerating by-folder

  | alist の cdr に大文字が含まれていることを高速に調べる方法はあるでしょ
  | うか？ どこかにあれば、そこで break すればいいですが、最後までないと
  | alist 全体をなめてしまいますね。この最悪のケースでも高速であって欲しい
  | です。
  | 
  | ＃ ま、while を回しても、エントリ数は 2000 なので、1 秒ぐらいでしょう
  | ＃ が。
  | 

おもったよりも時間はかからないみたいです。

(let ((alist (make-list 2000 '("+foo/foo" . "foo")))
      (case-fold-search nil))
  (setq alist (nreverse (cons '("+FOO/foo" . "foo") alist)))
  (string-match "[A-Z]"
                (mapconcat (lambda (x) (format "%s" (cdr x))) alist "")))

--
鯉江英隆 <hide at example.com>