2012-01-18
Hello (ライオネル・リッチー)
Likecool のエントリ「Hello」より.どうしても vimeoの動画が貼れないので,youtube の動画にリンクを貼っておきます.vimeo の動画は貼れるようにしてほしいなあ>はてな.
多くの映画のいろいろなセリフを短くつないで,ライオネルリッチーの Hello という曲を再構成しています.たいへんな労作で,面白いですね.どの映画のセリフなのか,多くは分かりませんが,映画に詳しい人には非常に面白く感じられるのではないでしょうか.
ちなみに,ライオネル・リッチーの Hello のオリジナルはこちらです.
私はライオネル・リッチーのことはあまり知りませんし,この曲も聞いたことがないのですが,日本の昔のニューミュージック (?) のようなメロディだと思いました.だから日本でも人気があるのでしょうか?
2012-01-04
隣接する2項に演算を施す関数を 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 では上記の実装が最もコンパクトだと思われます,脱帽です.
2011-12-16
世界の子供たちがクリスマスに欲しがるおもちゃの変遷
懸案だった大仕事が予想外に早く片付きそうで,ほっとするとともに,なんとなく腑抜けた状態になっています.
それはともかく,いつも楽しみに読んでいる Daily Infographicで,面白い記事 (Top 50 Christmas Toys of the Past Century) がありました.世界の子供たちが,クリスマスのプレゼントに欲しがるおもちゃが,ここ1世紀ほどの間にどんなふうに変わってきたかという内容です.
それによれば,100年ほど前は,子供が最も欲しがるおもちゃはテディベアだったのに,最近は,Xbox 360 や PS3 などのビデオゲームが主流になってきているということです.時代の変遷がしのばれて,面白いですね.(画像が重いです,すみません)
2011-12-01
12月のカレンダー付き壁紙
11月はいろいろと仕事があって,ほとんど休みがありませんでした.おそらく,クリスマスくらいまでこの調子です.あーあ.
それはともかく,Smashing Magazineで,12月の壁紙が配布される季節になってしまいました.時間がたつのは本当に早いものですね….例年通り,Desktop Wallpaper Calendar: December 2011から気に入った壁紙を貼っておきます.
過去のエントリ:
- 2010年: 12月,クリスマスの壁紙
- 2009年: 12月のカレンダー付き壁紙(クリスマスバージョン)




