ɥozɐʞıɥ

_ [買物][本] 冬のフロスト<上> (創元推理文庫)<上> (創元推理文庫)

このシリーズは大好きなのだがなぜかレコメンデーションに入らない。

_ [買物][本] 冬のフロスト<下> (創元推理文庫)<下> (創元推理文庫)

このシリーズはお薦めです。

_ [買物][本] 数学ガールの秘密ノート/式とグラフ

twitterでサイン本がまだ残っているってので神保町のグランデ | 店舗情報 | 株式会社書泉まで買いに出かけました。途中まで神保町と神谷町を間違えて日比谷線に乗ったのは内緒だ。

サイン入りゲッツ posted by (C)ひかぞぉ

_ [買物] I-O DATA 省電力機能搭載!100BASE-TX/10BASE-T対応 5ポートレイヤー2スイッチングハブ ETX-ESH5K

我が家のPC環境を少し増強します。

_ [生活] よんよんが植えたピーマン

ムスコが植えたピーマン posted by (C)ひかぞぉ

実りました。

_ [Clojure] Append

まずは関数

(defn append[x y]
	(if (nil? x) y
	  (cons (first x) (append (next x) y))))

今度はマクロで実装

(defmacro apnd[x y]
       `(letfn [(apnd# [x# y#]
	(if (nil? x#) y#
	   (cons (first x#) (apnd# (next x#) y#))))]
          (apnd# ~x ~y)))

実装ヒントは初めての人のためのLISP[増補改訂版]からです。

_ [Diet] ランニング

食べ過ぎたので昼間にランニングに出かけたら…むっちゃ暑い。6kmのうち2kmは歩きました。こりゃ昼間に運動は無理だな。

_ [Clojure] Project Euler 1

ちょっと落ち着いてきたので頭の体操。

(apply + (filter #(or (zero? (mod % 3)) (zero? (mod % 5)))(range 1 1000)))

_ [Clojure] Project Euler 2

(apply + (take-while #(< % 4000000 )(filter even? (map first (iterate (fn [[a b]] [b (+ a b)]) [0N 1N])))))

_ [本] 冬のフロスト<上> (創元推理文庫)<上> (創元推理文庫)冬のフロスト<下> (創元推理文庫)<下> (創元推理文庫)

読了した。面白く読めました。このシリーズは肩の力を抜いて楽しく読めます。長編はあと1冊残っているようですね。

_ [食事][店] 焼き肉

相方とよんよんの誕生日祝いで近所の焼き肉です。ここは美味しい。

焼肉なう posted by (C)ひかぞぉ

焼肉なう posted by (C)ひかぞぉ

焼肉なう posted by (C)ひかぞぉ

焼肉なう posted by (C)ひかぞぉ

_ [生活] 投票

行ってきました。

選挙なう posted by (C)ひかぞぉ

_ [生活] 夏の収穫

我が家の庭でとれました。

夏の収穫 posted by (C)ひかぞぉ

_ [映画] シュガー・ラッシュ DVD+ブルーレイセット [Blu-ray]

面白かったですよ。子供におすすめ。

_ [CD][Music] Blown Awayby CARRIE UNDERWOOD

_ [CD][Music] Valtariby Sigur Ros

_ [CD][Music] XXXby ASIA

_ [CD][Music] That's Why God Made the Radioby The Beach Boys

_ [CD][Music] Playlist: the Very Best of Kenny Logginsby Kenny loggins

_ [CD][Music] Complete Duets Collectionby Marvin Gaye & Tammi Terrell

先日の山下達郎 OFFICIAL WEB SITE : サンデー・ソングブックで流れていた。

_ [CD][Music] メモリー・オブ・ジャパンby The Ventures

_ [CD][Music] ポップス・イン・ジャパンby The Ventures

_ [CD][Music] Doo-Wops and Hooligans (Bonus Track)by Bruno Mars

_ [CD][Music] Born & Raisedby John Mayer

_ [映画] テッド [DVD]

昨夜観ました。もうちょっと笑える作品かと楽しみにしていたのですが残念でした。

_ [iPhone][買物] iPhone 5 16GB au [ホワイト&シルバー]

下取りプログラム | スマートフォン・携帯電話 | auに便乗しました。ちょっとだけ溜まっていたauポイントも使いました。

今回は16Gにしました。ゲームをあまりやらないし。

1年前にiPhone4Sを買っています。

_ [買物][本] 大人の科学マガジン 新型ピンホール式プラネタリウム (学研ムック 大人の科学マガジンシリーズ)

またもや買ってしまった。組み立ては来週かな。部屋をプラネタリウムにするのだー