mshkhの日記

Likecool のエントリ「Hello」より．どうしても vimeoの動画が貼れないので，youtube の動画にリンクを貼っておきます．vimeo の動画は貼れるようにしてほしいなあ＞はてな．

多くの映画のいろいろなセリフを短くつないで，ライオネルリッチーの Hello という曲を再構成しています．たいへんな労作で，面白いですね．どの映画のセリフなのか，多くは分かりませんが，映画に詳しい人には非常に面白く感じられるのではないでしょうか．

ちなみに，ライオネル・リッチーの Hello のオリジナルはこちらです．

私はライオネル・リッチーのことはあまり知りませんし，この曲も聞いたことがないのですが，日本の昔のニューミュージック (?) のようなメロディだと思いました．だから日本でも人気があるのでしょうか？

Permalink | コメント(0) | トラックバック(0) | 21:25

2012-01-04

隣接する2項に演算を施す関数を Emacs Lisp で実装する

emacs, lisp

等差数列という記事を読んで，面白そうだったので，私も Emacs Lisp による実装を考えてみました (cl が必須です)．

(defun f (func list)
  (butlast (maplist (lambda (x)
		      (and (cadr x) (apply func (list (car x) (cadr x)))))
		    list)
	   1))

実行結果は以下のような感じです．

(f '+ '(1 2 3 4 5))
(3 5 7 9)

butlast を使ってるあたりが美しくないですかねえ…　どなたかもっとスマートな実装がありましたら教えてください．

(2012/1/5 追記)

というか，普通に再帰を使えばいいんでしたね．こっちの方が Lisp っぽいですかね．

(defun f (func list)
  (and (cdr list)
       (cons (apply func (list (car list) (cadr list))) (f func (cdr list)))))

実行結果は以下の通りです．

(f '+ '(1 2 3 4 5))
(3 5 7 9)

(2012/1/5 追記その2)

id:kensaku7 さんのエントリ（等差数列 (common lisp)）で，common lisp による以下のような実装があげられていました：

(defun f (fn lst)
  (mapcar fn (cdr lst) lst))

Emacs lisp だと，cl をロードして上記の mapcar を mapcar* にすればいいだけです．うーん，emacs lisp の mapcar に慣れてしまって，common lisp の上記のような mapcar の使い方はなかなかできませんねえ…．とにかく，Lisp では上記の実装が最もコンパクトだと思われます，脱帽です．

Permalink | コメント(0) | トラックバック(0) | 23:18

2011-12-31

よいお年を！

画像, ペンギン

あっという間に大晦日になってしまいました．今年は，東日本大震災をはじめとして大変な年で，また私としてもいろいろな心残りのある年でした．本ブログに限っても，聖書通読がほとんどできなかったのは残念です．来年は，本業以外の仕事を控え，自分のやりたいことのために時間を割くようにしたいと思っています．

本ブログをご覧くださった皆様，本当にありがとうございました．皆様にとって来年がよい年でありますよう，お祈りしております．

(Planet Mabelより)

（参考）本家ブログのエントリ：星に願いを

Permalink | コメント(0) | トラックバック(0) | 09:28

2011-12-16

世界の子供たちがクリスマスに欲しがるおもちゃの変遷

クリスマス, おもちゃ, 世界, 子供, 歴史

懸案だった大仕事が予想外に早く片付きそうで，ほっとするとともに，なんとなく腑抜けた状態になっています．

それはともかく，いつも楽しみに読んでいる Daily Infographicで，面白い記事 (Top 50 Christmas Toys of the Past Century) がありました．世界の子供たちが，クリスマスのプレゼントに欲しがるおもちゃが，ここ1世紀ほどの間にどんなふうに変わってきたかという内容です．

それによれば，100年ほど前は，子供が最も欲しがるおもちゃはテディベアだったのに，最近は，Xbox 360 や PS3 などのビデオゲームが主流になってきているということです．時代の変遷がしのばれて，面白いですね．（画像が重いです，すみません）