猫熊は燃えつきた？！日記

○ だけど

今無理をするとシーズン棒にフルからなぁ。

○ migemo

大体マージ出来たんだけど、眠いので後は明日以降にしよう。動作確認しないといけないし。ちなみに、ぼくの ~/.emacs から migemo 向けの記述を(ほとんど)なくすことを目標に。

○ 便利な関数

(defun check1 ()
  (let ((pat (concat (make-string 1000 ?あ) "\r")))
    (replace-regexp-in-string "\r$" "" pat)))
 
(defun check2 ()
  (let ((pat (concat (make-string 1000 ?あ) "\r")))
    (if (and (> (length pat) 1)
             (eq ?\r (aref pat (1- (length pat)))))
        (substring pat 0 -1)
      pat)))
 
(let ((i 5))
  (while (not (zerop i))
    (insert (format "%.3f\n" (benchmark 1000 (check1))))
    (setq i (1- i))))
1.555
1.566
1.558
1.695
1.562
 
(let ((i 5))
  (while (not (zerop i))
    (insert (format "%.3f\n" (benchmark 1000 (check2))))
    (setq i (1- i))))
0.272
0.266
0.265
0.266
0.283
 

○ セクシー女塾

とかいう番組名だったので、わくわく ^^;;; してみてみたら子供じゃんか :-<

ファンの人ごめんね