朝、子供会のゴミ拾い。若干濡れた。
夕方、生まれてこの方見たことの無いぐらい素晴らしい虹が江戸川上空に発生。七色全部見えたし、起点と終点?もはっきり見えたし、しかもなんと二重になった虹であった。ちょっと興奮。けど、激しく濡れた。
まだまだ続く ;_;
(let ((hoge (list 'A 'B 'C))
fuga)
(setq fuga hoge)
(setq fuga (delq 'B fuga))
(eq hoge fuga))
は 't' なのに、
(let ((hoge (list 'A 'B 'C))
fuga)
(setq fuga hoge)
(setq fuga (delq 'A fuga))
(eq hoge fuga))
は 'nil' なのか説明しなさい。とか。
新聞各紙の『最近、子供生まれていないんだよ』を見ていて、ここ数年、ほとんど 1966年の丙午の出産数と同じことに気付く。丙午のときにあんまり生まれていないのって、親が迷信を信じてってことだと思うけど、38年前でもまだまだそういう迷信が根強かったんだなぁ。2026年はどうだろう?
ってぼくもちょっと関係した話かしら?
確かにスレッドごとソートするって、面倒だけど、出来たら(少しは)便利かも。だけどなぁ、燃えないなぁ。
すでに出来ているスレッドをいじると、スレッドフォルダでの search-mark が出来なくなるしな。
某所で大家さんに暴言を吐いてしまった。ふみゃーー。
(正確には地域公開授業といってだれが見に行ってもよいのだが、わかりやすく言えば)授業参観日。
息子のいない息子のクラスの国語の授業と、娘の算数の授業、および、三時間目ののど自慢大会(で娘が登場するまで)を見学。しかし、立ったまま授業を見ていて倒れそうになったぐらい眠いぞ。
授業参観をした後、いそいそと一人で錦糸町のヨドバシカメラへ Go。結局、持った感じとかを考慮して、COOLPIX 2001を購入。あと、単三型のニッケル水素電池キットと 128MByte の CF カード。冷蔵庫のポイントじゃ全然足りませんな。^^;;;
しかし、購入するときに店員とまったく意思の疎通が出来なかったな。mMByte のストレージには n万画素のデータが何枚保存できるという一覧表について、実験の条件を聞いたんだけど、ムチャな質問だったよな。
本当は卓球があったのだが、あまりに疲れていて、かつ、眠いため、女房まかせでおいらはパス。おかげで、15:30-17:00 の間、昼寝ができた。幸せ。
20:00 から子供会の役員会で町会の会館へ。今年度二回目なのだが、ぼくは初めての参加であった。しかし、今月は子供会の行事が多くて、結構大変だ。
死んじゃいます ;_;
というわけで、簡単に決めた理由とか感想を列挙。
結果的には満足しています。だけど、これぐらいのカメラがこの値段で買えると APS とかは売れなくなるなぁ、やっぱり。
こんな下らないキャッチフレーズ考えるようなメーカもあるぐらいだから広角よりのズームは一般受けしないのかな?そういうぼくも、ほとんど運動会専用の 90mm-300mmの安物ズーム持っているもんなぁ、人のこと言えないか。
こういうカテゴリ?のカメラは富士写真フィルム「カルディア・トラベルミニ デュアルP」以来だ。フィルム走行系がなんかへんになってしまって、もう使っていないのだけど、こいつの 28mm は(それなりに)良かったな。
(defun mew-mailhist ()
"Mew の Smtplog でまねっこ。Mew と MHC が必要"
(interactive)
(let ((logfile (read-file-name "Smtplog: " (file-name-as-directory mew-conf-path)
(expand-file-name mew-smtp-log-file mew-conf-path)
t mew-smtp-log-file))
(buff (get-buffer-create "*Mew MailHist*"))
(startdate "9999/99/99")
(enddate "0000/00/00")
(totalcount 0)
max sdate edate date date-alist match totaldate pdate)
(with-temp-buffer
(insert-file-contents (expand-file-name logfile))
(goto-char (point-min))
(while (not (eobp))
(when (looking-at "^\\([12][0-9][0-9][0-9]/[0-9]+/[0-9]+\\) ")
(setq date (match-string 1))
(setq totalcount (1+ totalcount))
(if (setq match (assoc date date-alist))
(setcdr match (1+ (cdr match)))
(setq date-alist (cons `(,date . 1) date-alist))
(when (string< date startdate)
(setq startdate date))
(when (string< enddate date)
(setq enddate date))))
(forward-line 1)))
(setq date-alist
(sort date-alist (lambda (x y) (> (cdr x) (cdr y)))))
(and (string-match "^\\([12][0-9][0-9][0-9]\\)/\\([0-9]+\\)/\\([0-9]+\\)"
startdate)
(setq sdate (mhc-date/absolute-from-epoch
(string-to-number (match-string 1 startdate))
(string-to-number (match-string 2 startdate))
(string-to-number (match-string 3 startdate)))))
(and (string-match "^\\([12][0-9][0-9][0-9]\\)/\\([0-9]+\\)/\\([0-9]+\\)"
enddate)
(setq edate (mhc-date/absolute-from-epoch
(string-to-number (match-string 1 enddate))
(string-to-number (match-string 2 enddate))
(string-to-number (match-string 3 enddate)))))
(setq totaldate (1+ (- edate sdate)))
(setq max (cdr (car date-alist)))
(pop-to-buffer buff)
(erase-buffer)
(insert (format "%s〜%s (%d日, %d通, Ave %.2f通/日)\n"
startdate enddate totaldate totalcount
(/ totalcount (float totaldate))))
(while (>= max 0)
(setq totalcount 0)
(while (setq match (rassq max date-alist))
(setq totalcount (1+ totalcount))
(setq date-alist (delq match date-alist)))
(setq totaldate (- totaldate totalcount))
(setq pdate (cons
(format "%4d通 %3d日 %s\n"
max
(if (zerop max) totaldate totalcount)
(make-string
(min 80 (if (zerop max) totaldate totalcount)) ?*))
pdate))
(setq max (1- max)))
(mapcar 'insert pdate)))
M-x mew-mailhist => ..../Smtplog 2003/04/21〜2003/06/10 (51日, 154通, Ave 3.02通/日) 0通 17日 ***************** 1通 6日 ****** 2通 6日 ****** 3通 2日 ** 4通 4日 **** 5通 7日 ******* 6通 4日 **** 7通 1日 * 8通 2日 ** 9通 0日 10通 0日 11通 0日 12通 0日 13通 0日 14通 1日 * 15通 0日 16通 0日 17通 0日 18通 1日 *
M-x mew-mailhist => ..../Smtplog.0 2001/07/13〜2003/04/18 (645日, 2860通, Ave 4.43通/日) 0通 254日 ******************************************************************************** 1通 20日 ******************** 2通 29日 ***************************** 3通 28日 **************************** 4通 34日 ********************************** 5通 45日 ********************************************* 6通 37日 ************************************* 7通 40日 **************************************** 8通 33日 ********************************* 9通 36日 ************************************ 10通 18日 ****************** 11通 17日 ***************** 12通 13日 ************* 13通 4日 **** 14通 6日 ****** 15通 5日 ***** 16通 9日 ********* 17通 3日 *** 18通 3日 *** 19通 5日 ***** 20通 0日 21通 0日 22通 0日 23通 1日 * 24通 2日 ** 25通 0日 26通 1日 * 27通 0日 28通 1日 * 29通 0日 <<中略>> 43通 0日 44通 1日 *
1997/07/30〜2003/06/11 (2143日, 11552通, Ave 5.39通/日) 0通 781日 ******************************************************************************** 1通 137日 ******************************************************************************** 2通 153日 ******************************************************************************** 3通 92日 ******************************************************************************** 4通 76日 **************************************************************************** 5通 80日 ******************************************************************************** 6通 98日 ******************************************************************************** 7通 99日 ******************************************************************************** 8通 78日 ****************************************************************************** 9通 93日 ******************************************************************************** 10通 65日 ***************************************************************** 11通 59日 *********************************************************** 12通 51日 *************************************************** 13通 38日 ************************************** 14通 25日 ************************* 15通 32日 ******************************** 16通 33日 ********************************* 17通 33日 ********************************* 18通 16日 **************** 19通 19日 ******************* 20通 14日 ************** 21通 11日 *********** 22通 8日 ******** 23通 5日 ***** 24通 7日 ******* 25通 5日 ***** 26通 3日 *** 27通 4日 **** 28通 5日 ***** 29通 3日 *** 30通 1日 * 31通 2日 ** 32通 1日 * 33通 0日 34通 0日 35通 2日 ** 36通 1日 * 37通 1日 * 38通 1日 * 39通 0日 40通 1日 * 41通 0日 42通 1日 * 43通 1日 * 44通 0日 45通 0日 46通 0日 47通 1日 * 48通 1日 * 49通 1日 * 50通 1日 * 51通 2日 ** 52通 0日 53通 1日 * 54通 0日 <<snip>> 126通 0日 127通 1日 *127通はなにかしらの実験をしていたとき。アベレージは実験が持ち上げているような気がする。
『昨日、11日(水)午後2時ごろ「上篠崎四丁目公園(通称きりん公園)」に変質者が現われ、本校児童の通報により、かけつけた警察官がその場で取り押さえるという事件が発生しました。』うんぬん。。。
(1) 死刑(市中引き回しの上磔獄門、なら、なお良)
(2) (本当の意味での)無期懲役
(3) 遠い島に流す。
(4) 釈放された後「私はこういう人間です」と首から看板を下げる措置
(5) 犯人の住所、指名の公表
の優先順位で対応希望。こういう奴には人権など存在しない。
息子を連れて(息子曰く「お店の人がかっこいい」)床屋へ。たしかにみんなかっこいいし、雰囲気も良いお店だが、個人的には「お店の人がかわいい」「お店の人が素敵」な床屋さんの方が良いかも、
ピアノ教室と明日のおかし買いで1日が終わってしまった。夜は、めちゃくちゃ眠くて、21:00 には寝た。
子供会のバスハイク。朝、5:30 起きで帰ってきたら 19:00。2号車の司会進行などというのをして、どっと疲れた。最近は、子供に付きっきりでいなくても大丈夫なので、一人でふらふら温泉めぐりをしていた。なかなか良い。
なんにも出来ず。明日のためにもう寝る。。。
娘が学校帰りに友だち 4人と歩いていたら、自転車でやってきたとのこと。娘は 3年前にも遭遇しているんだよなぁ。ほんと、一度とっつかまえてやりたい。
子供が助けを求めていたり、不審な場面に出くわしたら見て見ぬふりをしないでくださいね。皆様。
(make-directory "/tmp/hoge/") がエラーになる問題。かずさんがいろいろ調べてくれた。
しかし、NetBSD の mkdir(2) おそるべし。バグ隠しだったとは
なんとか一山越えた。
今女房に聞いたら、うちの家族は全員「カブを隣町に持っていって腐らせた」ことがあるそうだ。女房曰く「今頃そんなことやってちゃだめよ」だって。だけど、だれも住宅ローンは返しきっていないらしいので、わが家に来ることがあったら、子供たちに自慢してくださいませ。
『新しくなったばあちゃん』ってなんだか怖いかも。
1イニングで 10点取られた。
えぇ、参加しますとも。だって、そちら限定で宴会あったらくやしいもんね。(動機が不純だが)
朝早くから子供会のいも掘りに行った(自転車で 10分)のに、なんで夕方酔っぱらって帰ってくるんだろう?わたしって。
今週も何にもできず。snv 0.24.2 のインストールだけだな、進捗は。そういえば、デジカメの EXIF ファイルからサムネイル部分を抜き出すのは(どこかにありそうだけど)作った。作ったといっても 二番目の SOI から EOI までを抜き出しただけ。なさけなぁ、ちょっといい加減すぎるぞ。。。
がーん、3日早く買っちまったい。保証書みたら、見事に 6月7日の日付が。。。
へらへらしていたらパニックに。。。
Received: from qnx.mdrost.com ([60.170.125.79]) Message-ID: <9b9d01c338c7$8afa9070$a77f85fd@fxryqinxl> X-Mailer: Microsoft Outlook Express 5.00.2314.1300な感じ。
都営三田線にのったら、見るからに『これから結婚式に出席ですよ』という感じで、すてきなお洋服にすてきなお化粧のすてきなおねいさんを何人かみた。ジューンブライドもよいが、日本の大部分の地域は梅雨なんだよなぁ。ちょっとかわいそうかも。
頑張れ、林君!!
△ yoichi [ごめんなさいごめんなさい…。]
△ ぱんだ [こうやって、みんな大人になっていくのであった]