今年の総括

・放射線物理学
=>後半に入って新しく始めたこと．まだはじめたばかりだし，おもしろいから来年も続けると思う．

・量子力学
=>本格的に量子力学をはじめた．やりたいことの尻尾がこのへんにあるようだから，この先もずっと付き合っていくことになりそう．

・Lisp
=>これまではSchemをやってたけど（現在も継続中）それにくわえてElispとかCLISPとかやったなぁ．あんまり使いこなせてないけど．

・プログラミング
=>実験データの加工なりで使うスクリプト以外はまともに組んでいないなぁと思った．いろいろ作ろうと思ったけど，やらなかったり，途中で放置してあったり．

・英語
=>ブログをつけながらやれば継続できるかと思ったけれども，そうでもなかった；

・DistroFreakが凍ってる
=>コメント管理をたまにするぐらいな状態．離れたきっかけは，使ってたブログのサーバが重たいのと，書いている途中の原稿が飛ぶという事態に何度が遭遇したから．
でも，何かテーマを持って毎日付けるっていうのはもう一回やりたいなぁと思っている．
フリーソフトウェアウォッチでもしようかな…．

来年に向けては
・運動する
・飽きっぽい性格を多少なりとも矯正すること
・有言実行
・英語をもう一回やり直す
・なんか作りたい．やっぱりそこは変わらない
・電子工作やりたいなぁ．やっぱり
といったところ．


ブログをごらんの皆さん，今年もありがとうございました．
どうぞ，よいお年を！

少し遅めのメリークリスマス

少し遅れたけれど，クリスマスな空気を味わってきました．
でも，やっぱりおこたでコーディングがいいなぁと思うのは，ダメ人間症候群のせいでしょうか？（笑）

そんな妄想をしたので，以下，ダメ人間シンドロームのチェックシートです．

□ 外に出るよりは，家の中がスキだ．
□ なにかしようとするとき，まず「面倒くさいナァ」が頭をよぎる．
□ 夜こそ，自分のホームフィールドだと思う．
□ 1日12時間は余裕で寝られる．
□ 起きたら午後3時過ぎ．でも，おはようはおはようだと思う．
□ 新刊のコミックスでも，ついAmazonで購入してしまう．
□ Amazonから，購入した商品を発送した旨のメールが来ると，ワクワクして夜も眠れない．
□ 新発売・限定品・特価という言葉に弱い．
□ たまたま外出した先で，DVD等のワゴンセールを見つけると，ついお得な品が無いか探してしまう．

5つ以上当てはまったら，あなたはダメ人間シンドロームな可能性が高いです．
生活スタイルを改めるところから，徐々に改善していきましょう．（人に言えたことじゃない）

10個全て当てはまったら，アナタはモデルダメ人間といえるでしょう．
学会に報告するので，すぐに論文を書く準備をしてください．
（私？私は面倒くさいから書きません．その代わり，発表だけさせてください．）

わたしの.emacs

一応バックアップはとってあるけれども，ウェブ上にあると何かと便利なので．

;;.emacs
(setq inhibit-startup-message t)
(require 'un-define)

;; default coding system
(coding-system-put 'utf-8 'category 'utf-8)
(set-language-info
"Japanese"
'coding-priority (cons 'utf-8
(get-language-info "Japanese" 'coding-priority)))
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)

(global-font-lock-mode t)

(setq backup-inhibited t)

(setq delete-auto-save-file t)

;; html-helper-mode
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\.html$" . html-helper-mode) auto-mode-alist))

;; css-mode
(autoload 'css-mode "css-mode" "Editing CSS" t)
(setq auto-mode-alist (cons '("\.css$" . css-mode) auto-mode-alist))

;; region
(setq transient-mark-mode t)

;; show clock
(display-time)

;; show column number
(column-number-mode t)

;; anthy
(push "/usr/local/share/emacs/site-lisp/anthy/" load-path)
(load-library "anthy")
(setq default-input-method "japanese-anthy")

;; uim
(require 'uim)
(setq uim-default-im-engine "anthy")
(global-set-key "\C-\\" 'uim-mode)
(setq uim-default-im-prop '("action_anthy_hiragana"))
(setq uim-candidate-display-inline t)

(show-paren-mode t)
(setq show-paren-style 'mixed)

;; lisp
(setq inferior-lisp-program "clisp")

;; scheme
(setq process-coding-system-alist
(cons '("gosh" utf-8 . utf-8) process-coding-system-alist))

;; gosh interpriter path. -i option is interactive mode
(setq gosh-program-name "/usr/bin/gosh -i")

;; scheme-mode and run-scheme-mode use to cmuscheme.el
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

;; partition window and run gosh interpriter
(defun scheme-other-window ()
"Run scheme on other window"
(interactive)
(run-scheme gosh-program-name))

;; Ctrl-cs -> call command
(define-key global-map
"\C-cs" 'scheme-other-window)

;; RCS
(setq vc-make-backup-files nil) ;no backup
(setq vc-command-messages t) ;put command messages

; log message coding system
(setq process-coding-system-alist
(append
'(("rcs" . utf-8)
("ci" . utf-8)
("co" . utf-8)
("rlog" . utf-8)
("rcsdiff" . utf-8)
("rcsmerge" . utf-8)
("ident" . utf-8)
("rcsclean" . utf-8))
process-coding-system-alist))

; personal data for log files
(setq add-log-full-name "MY NAME")
(setq add-log-mailing-address "MY E-MAIL ADDRESS")

;; pair of brace
(show-paren-mode)

;; scheme-indent
(put 'and-let* 'scheme-indent-function 1)
(put 'begin0 'scheme-indent-function 0)
(put 'call-with-client-socket 'scheme-indent-function 1)
(put 'call-with-input-conversion 'scheme-indent-function 1)
(put 'call-with-input-file 'scheme-indent-function 1)
(put 'call-with-input-process 'scheme-indent-function 1)
(put 'call-with-input-string 'scheme-indent-function 1)
(put 'call-with-iterator 'scheme-indent-function 1)
(put 'call-with-output-conversion 'scheme-indent-function 1)
(put 'call-with-output-file 'scheme-indent-function 1)
(put 'call-with-output-string 'scheme-indent-function 0)
(put 'call-with-temporary-file 'scheme-indent-function 1)
(put 'call-with-values 'scheme-indent-function 1)
(put 'dolist 'scheme-indent-function 1)
(put 'dotimes 'scheme-indent-function 1)
(put 'if-match 'scheme-indent-function 2)
(put 'let*-values 'scheme-indent-function 1)
(put 'let-args 'scheme-indent-function 2)
(put 'let-keywords* 'scheme-indent-function 2)
(put 'let-match 'scheme-indent-function 2)
(put 'let-optionals* 'scheme-indent-function 2)
(put 'let-syntax 'scheme-indent-function 1)
(put 'let-values 'scheme-indent-function 1)
(put 'let/cc 'scheme-indent-function 1)
(put 'let1 'scheme-indent-function 2)
(put 'letrec-syntax 'scheme-indent-function 1)
(put 'make 'scheme-indent-function 1)
(put 'multiple-value-bind 'scheme-indent-function 2)
(put 'match 'scheme-indent-function 1)
(put 'parameterize 'scheme-indent-function 1)
(put 'parse-options 'scheme-indent-function 1)
(put 'receive 'scheme-indent-function 2)
(put 'rxmatch-case 'scheme-indent-function 1)
(put 'rxmatch-cond 'scheme-indent-function 0)
(put 'rxmatch-if 'scheme-indent-function 2)
(put 'rxmatch-let 'scheme-indent-function 2)
(put 'syntax-rules 'scheme-indent-function 1)
(put 'unless 'scheme-indent-function 1)
(put 'until 'scheme-indent-function 1)
(put 'when 'scheme-indent-function 1)
(put 'while 'scheme-indent-function 1)
(put 'with-builder 'scheme-indent-function 1)
(put 'with-error-handler 'scheme-indent-function 0)
(put 'with-error-to-port 'scheme-indent-function 1)
(put 'with-input-conversion 'scheme-indent-function 1)
(put 'with-input-from-port 'scheme-indent-function 1)
(put 'with-input-from-process 'scheme-indent-function 1)
(put 'with-input-from-string 'scheme-indent-function 1)
(put 'with-iterator 'scheme-indent-function 1)
(put 'with-module 'scheme-indent-function 1)
(put 'with-output-conversion 'scheme-indent-function 1)
(put 'with-output-to-port 'scheme-indent-function 1)
(put 'with-output-to-process 'scheme-indent-function 1)
(put 'with-output-to-string 'scheme-indent-function 1)
(put 'with-port-locking 'scheme-indent-function 1)
(put 'with-string-io 'scheme-indent-function 1)
(put 'with-time-counter 'scheme-indent-function 1)
(put 'with-signal-handlers 'scheme-indent-function 1)
(put 'with-locking-mutex 'scheme-indent-function 1)
(put 'guard 'scheme-indent-function 1)

;; memo
(setq user-full-name "MY NAME")
(setq user-mail-address "MY E-MAIL ADDRESS")
(defun memo ()
(interactive)
(add-change-log-entry
nil
(expand-file-name "~/.memo/memo.txt")))
(define-key ctl-x-map "M" 'memo)

;; password
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)

;; c-mode hook
(add-hook 'c-mode-hook
'(lambda ()
(c-set-style "BSD")))

;; ls color mode off
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

クライアントを選ぶことは出来ない．

お客様は神様ですなんて言葉がある．客商売をする人の合言葉みたいなものだろう．
特にデパートなどの販売店ではこれをモットーに皆ががんばっている．

当然，ソフトウェア産業やデザイン業も似たものになるだろう．
クライアントがあって，はじめて成り立つビジネスだからだ．

ただ，今日のクライアントはひどかった．
あんまりお客のことを悪く言うのもなんだけど，ひどかった．
私は技術系の人間なのに，「できるから」というだけでデザインをやらせて，本業の人よりはるかに安い代金をふっかけてくる．
デザインはできないというと，技術系の仕事まで切るといってくる．
もう，今後こういうクライアントとは係わりたくない．ホンキでそう思った．
もう二度と，こんな仕事はすまい．

ふぅ。

お仕事こなして，レポートをせこせこ書いていたらもう4時．
夜は静かだから，とっても作業がはかどる．でも，夜型人間はよくないというのは重々承知している．
早く一人暮らしを始めるべきなんだろうな．

そう言いつつも先立つものがないので，やっぱり夜中に動く体質に．
圧縮新聞のこの人みたく，面白いサービスを思いついて，広告収入で稼ぐって言うのが出来れば楽しいんだろうな…．
そんなことを考え，「明日は昼から打ち合わせだから，もう寝ないとな」などと思いつつも，やっぱり区切りの良いところまで作業をしたくなってしまう．典型的なダメ体質ですね．

一通り作業が終わると，就寝前のネットサーフィン．
Ruby 1.9.0がリリースされてたんですね．
互換性の無いリリースだから，ひっそりとしているんだろうか？
あんまりソッチ系のニュースサイトでも，リリース情報を見かけないけど…．
ともあれ，なんだか色々な変更が多々加わったようで．お疲れ様です．（遊び程度にしかRubyは使わないですが）
Debian/lennyになったらパッケージとして提供されるだろうか？
それなら入れてみるのもいいなぁ．

26日はこの冬イチバンの寒さだったそうで．
どおりでコタツに入っているだけじゃ，上半身が寒いわけだ．
さ，もう寝よう．

久しぶりに自宅でクリスマスイブ．

もう日付が変わってしまいそうだけど．
昼ごろおきて，部屋の掃除→プログラミングというメニュー．
最近いろいろなプログラミング言語をつまみ食いしているのだけれども，今日やっているSchemeのcall/ccの理解に頭を悩ませている．

一日プログラミング漬けになっているから理解できないのか，Scheme的な発想ができていないから理解できないのか，それとも何か別の理由があるのか？
なんともいえない不快感に襲われております（笑）

ブログにメモでも書けば，なんとなく整理できるかとおもったけれども，書き出せば書き出すほど意味不明になるのでやめておこう．

とにかく今日は寝て，明日またやり直します．トホホ．

M-1グランプリ

毎年恒例のM-1グランプリ．私は敗者復活戦から見ました．
サンドウィッチマンが決勝1回戦で使ったネタ，敗者復活戦準決勝で使ったネタと同じものでしたね．
でも，2回見て面白いネタでしたから，最終ラウンドに残ったのは個人的にも納得のいくものでした．

最終的に優勝したのもサンドウィッチマンでしたが，最終ラウンドではどのコンビもネタの荒さが目立ったような気がします．
特にキング･コングに関しては，負けられないという気負いと，緊張とがあったうえに，1回戦で使ったネタほど練習をしていないなという印象を受けました．

トータルテンボスも同じで，1回戦で使ったネタほど練習していない印象を受けました．

この2組に関してそんな印象を受けた大きな要因は，おそらく1回戦と最終ラウンドとで使ったネタの方向性が同じだったからだと思います．

それに対してサンドウィッチマンは方向性の違うネタを投入してきたのが，勝因の一つではないかと．
その「方向性の違うネタ」によって，疲れていた審査員／観客も笑わせることができたというのは，非常に大きなポイントになったと思います．
毎年思うのですが，8組で決勝1ラウンド→3組で最終ラウンドというのは，審査員も観客も視聴者も疲れてしまうんですよね．

特にトータルテンボス／キング･コングに関しては方向性が似通ったネタだったということもあり，ちょっとやそっとの予想外では誰も笑わなかった→つまらなく感じたということではないかと，個人的には考えています．

もし，みんなが元気な状態であのネタを見たら，十分な笑いの取れるネタだったと思いますし．

昨年に比べて接戦だった印象の強い今回のM-1，来年のサンドウィッチマンの活躍が楽しみです．

CLUB-Nintendoからクリスマスプレゼント．

時期的にはぴったり？
ゴールド会員にはカレンダーとのことで，2008年版卓上カレンダーが送られてきました．

先日レイトン教授の新作を買ったので，しばらく新しいゲームを購入する予定は無いのですが，
卓上カレンダーに出てくるゲームキャラクターを見ていたら，新作が欲しくなってしまいました（笑）

次はドラクエ9かドラクエ6が発売される時かなぁ・・・．
リメイクの出来によっては，ドラクエ5で食指が動いてしまうかも．

石破さん、UFOですか。

元ネタはこちら。
UFOだなんて、大槻教授が出てきそうな話題ですけどね（笑）

言うまでも無く、なんとも面白い議論をするんだろうなと思って記事を読み、テレビの会見を見てしまいました。


確かに法的根拠なんて考え出したらどこに行き着くのかについて興味はあるけど、こういうのって2chとかで暇つぶしがてら議論されてるような内容に近いものが感じられて、実に日本は平和な国だと感じたわけですよ。

日本人でよかった。

Perl 5.10

新機能の一覧はこちら。
Perlもハタチの誕生日だそうで。
それにしても、たかだか20年ですごく肥えたものだ。
人間だったら健康診断でひっかかること間違いなしだね。

ちなみに私はPerl使えないので、こんなニュースを読んで
「でかくなったなぁ」なんて思うだけで済みますが、
現場でPerl使ってる人にしてみたら、いろいろと思うところはあるんだろうな。

ちなみに、同日リリースされたPerl6（0.51）のニックネームはHatachiですって。
なにはともあれおめでとうPerl。実際使うところは無いけれど、いろんなところでお世話になってるんだものね。

screen入れたけど

便利便利と噂されるscreenを入れたけれども，よく考えたらemacs起動させちゃうし，あんまし意味ないんですよね．
しかも，screenって打ち込む手間があるし…
で，よく考えたら自動的に起動させればよいわけで．
探したらscreenの自動起動に関してこんなページを見つけました．

この方法での問題点は，ログアウト時にはexitしてscreenを抜け出した後，もういちどexitしなくてはいけないところ．
まぁ，好みの問題ですな．ちなみに私は前述の通りscreenを入れたものの使っていないので，上記サイトで手に入れたスクリプトを改造して

if [ $SHLVL = 1 ];then
  emacs
fi

としてます（笑）
でも，これだけでも結構作業効率が違うんだなぁと．
というわけで，さよならscreenというお話でした．

ボーカロイド使いよ！集まれ！

クリプトンはここぞとばかり新サービスを立ち上げてきましたな．
その名もピアプロ．

ボーカロイドシリーズで作成した楽曲やボーカロイドのイラスト他，クリプトンのキャラクターに限定したコンテンツの投稿サイトだそうで．

ただのmixiやMyspaceもどきにならないことを願うばかりですが，こういったコミュニティ系のサイトであれらの二の舞を踏まないためには，どういった対策が必要なんでしょうかね？

mixiの問題点を元に，クリエイティブな作品が投稿される場所としてのピアプロを考察してみると，よりよいサービスにつながりそうな気がする･･････．

でもきっと，そんな良いアイディアが出てきたら，ピアプロに教えずとも，色々なキャラクターを総合的に扱う創作系コミュニティサイトとしてサイトを立ち上げて，一儲けする方を選ぶだろうな･･･．
ある程度利益が上がってきたら売り払っちゃったりとかして（笑）

こんなくだらない妄想力なら誰にも負けないんだけどなぁ．

初音ミク･･････の次．

ミクの次が鏡音リンだというのは周知の通りだと思いますが，どうやらレンという男の子キャラクターも居たらしいです．
[詳しくはこちら]

ツインボーカル．ワンパッケージで二つの声色というのは多らしいアプローチかも．
でも，女性の声と男性の声とでチューンするべき項目も違ってくるだろうから，当然作品を作る時の手間も増えるわけで･･････．それとも，元が同じ声優だから問題なくチューンできるんだろうか？

まぁ，そのあたりの調整は興味深いところだけど，個人的に気になるのは，やっぱり内部のエンジンのロジック．
特にミクはじめボーカロイドシリーズで問題になる，ぶつっと切れる発音の仕方や，「は行」の不明瞭な発音，歌に向かない「が行」の発音がどこまで調整されているのかが見所．

１万５千円ってことは，発売時期によっては相当売れると思う．
狙うなら冬休み商戦よりも，春休み商戦や夏のボーナス商戦に当てていくべきだと思う．
さて，ミクの妹弟達はどこまでやってくれるんだろうか？

そうそう，この後に控えている第３弾も忘れずにチェックしないと．