2007-07-01から1ヶ月間の記事一覧

図書館内乱

図書館内乱作者: 有川浩出版社/メーカー: メディアワークス発売日: 2006/09/11メディア: 単行本購入: 10人 クリック: 138回この商品を含むブログ (425件) を見る昨日に引き続き、こちらも一気読み。読書しすぎで頭痛がしてきました。。。 ちょ。ここで引くの…

三宮「万平」でうなぎを食べました

そういえば土用の時期だなぁと思い、三宮センター街の「万平」でうなぎを食べました。うなぎ定食1,700円。おいしゅうございました。中国産のぶよんぶよんしたうなぎは嫌いですが、しっかり身のしまったうなぎは大好きです。小骨が少なければ、もっと好き。 …

8月の参加予定イベント

今のところこんな感じです。だいぶ埋まってます。参加する予定の方、ぜひご一緒に。 08/03(金) 夜レレ(17:30〜18:45)、関西ライフハック研究会Vol.2@大阪(19:00〜) 08/05(日) ウクレレ天国@堺 08/11(土) Ruby/Rails勉強会@関西-18@大阪 08/12(日) 川瀬健…

エアコン直った!!

実は今シーズンの頭から僕の部屋のエアコンが故障しておりまして、夏休みに入ってからというもの不快な毎日を送っておりました。どーしてもエアコンの電源が入らないのです。冬のことは問題なかったのに。。。 で、今日ようやく電気屋さんが来てくれて、エア…

マネークリップを作りました

お札を挟んで使います。普通の財布よりもひとまわり小さくて薄いのでポケットがあまりふくらみません。 写真には写っていませんが内側にふたつ、外側にひとつカードを入れるところがあります。外側には定期とかよく使うカードを入れる予定です。マネークリッ…

参議院選挙に行きました

17:00ごろ行きました。朝から何か忘れているなー、何だろなーと思っていたら、これでした。危なくうっかり投票し忘れるところでした。

図書館戦争

図書館戦争作者: 有川浩出版社/メーカー: メディアワークス発売日: 2006/02メディア: 単行本購入: 12人 クリック: 506回この商品を含むブログ (841件) を見る最近夏休みで時間にゆとりがあるので、長いこと積ん読だった本を片付けています。この本(と続刊の…

平均律の周波数計算ツール

音階と周波数の対応表のJavaScriptのコードをHaskellに移植してみました。基準周波数は、A=440Hzです。 module Main (main) where import Control.Monad (zipWithM_) import System (getArgs) import Text.Printf (printf) notes :: [String] notes = cycle …

RFC 4180対応版 CSVレコードの分解

エロと風俗情報満載 どう抜く?より。Persecの練習のため、このプログラムを写経しました。写経というにはずい分変わってしまったように思いますが。 module Main (main) where import Text.ParserCombinators.Parsec (Parser, parse, char, string, many, t…

Matilda(7,900語)

ISBN:9780582401983 GR版です。僕はこれのオリジナルを読もうとして挫折しています。だいたいストーリーはわかったから再チャレンジしようかな。 Roald Dahlの本はぶっとんだ登場人物が多いので、これを受け入れられるかが楽しめる鍵のような気がします。

関数型言語に適したデータ構造とアルゴリズム

今後のステップアップのためには勉強すべきでしょうか。欲しくなってきました。Algorithms: A Functional Programming Approach (International Computer Science Series)作者: Fethi A. Rabhi,Guy Lapalme出版社/メーカー: Addison-Wesley発売日: 1999/06/0…

8月のチェルシーズ・ライブ

チェルシーズ・ライブ vol. 12@スタバ - チェルシーズ・ラミ犬の音楽ノート チェルシーズ・ライブ vol. 13 - チェルシーズ・ラミ犬の音楽ノート ラミ犬さん(ウクレレ)+NO BRAINさん(ピアニカ、ピアノ)のユニットです。 8月にふたつもライブが予定されていま…

17:30ごろ会社を出ました。 明日から1週間ブチヌキで夏休みです。ひゃっほー。

Jazz & 中華料理

(略) 僕を含め小食な方々が集まったようです。健康指向な話で盛り上りました。

燃えよペン

燃えよペン (サンデーGXコミックス)作者: 島本和彦出版社/メーカー: 小学館発売日: 2002/11/19メディア: コミック購入: 3人 クリック: 27回この商品を含むブログ (52件) を見る何回目かわからんくらい再読。僕もほどほどに熱い魂を持ちたいものです。やっぱ…

22:00に帰りました。最近では珍しく仕事でハマってました。まぁ後一日で夏休み。がんばります。

Tiny MML

http://ja.doukaku.org/31/より。Windows限定。Haskellもやればできる子です。 module Main (main) where import Control.Concurrent (threadDelay) import System.Win32 (UINT, BOOL) foreign import stdcall unsafe "Beep" cBeep :: UINT -> UINT -> IO BO…

19:00ごろ帰りました。

マップの通り抜け

http://ja.doukaku.org/30/nested/より。このRubyのプログラムをHaskellに移植してみました。 配列はとりあえずData.Arrayを使ってみました。HaskellのData.Arrayは、(Int, Int)もインデックスに使えます。二次元配列ぽく使えて便利。副作用がない代わりに全…

ロハスな趣味の人に梨木香歩さんをオススメします

あぁこんな風に生きたいなと思えるような作品がいっぱいです。とにかく日本語が綺麗。自然の描写がみずみずしいです。何となくロハスな感じ。暇なときとか別の重たい本を読む気がしないときとか、よく梨木香歩さんの本をパラパラめくっています。 僕の好きな…

猫ふんじゃった

http://www.bsddiary.net/d/200707.html#24より。僕は弾けません。そのうちウクレレで弾けるように編曲しようかな。 http://www.tcat.ne.jp/~s-ash/nue/empire/pc/music/cat/howto.htm http://www.tcat.ne.jp/~s-ash/nue/empire/pc/music/cat/score.htm

17:30ごろ帰りました。

Haskellで充足可能性問題

ライブドアブログ(livedoor Blog)| 読みたいブログが見つかるより。リンク先のコメントにもありますが、sequenceを使うとこんな感じでしょうか? module Main (main) where sat :: Int -> ([Bool] -> Bool) -> [[Bool]] sat n f = [xs | xs <- sequence $…

ぐるりのこと 梨木香歩

読了。いつもながら梨木香歩さんの描写はすーっと沁み透ってくる感じがします。こころにとまるキーワード(ぐるりとか)はいろいろあるのですが、んー、まだうまく咀嚼できていない感じ。何年かした後にもう一度読み直すべきかな。ぐるりのこと (新潮文庫)作者…

18:00ごろ帰りました。

群青学舎 二巻

あまりにも一巻と表紙が似ていて二巻がでていたことに気が付いてませんでした。入江亜季さんの短編漫画集です。 「ニノンの恋」と「続ピンク・チョコレート」がお気に入り(もちろん前巻の「ピンク・チョコレート」も好き)。んー、まぁ甘すぎるような恋の話が…

ハリーポッターの新刊

を紀伊国屋で見掛けたのですが、重そうだったので結局買わずに。1〜3巻までは英語でも読んでいて、4巻はあまりのぶ厚さに中断してます。あー、でも最終巻はやっぱり英語で読みたいかも。Harry Potter and the Deathly Hallows作者: J. K. Rowling出版社/メー…

n日後を返す関数を返す関数

http://ja.doukaku.org/29/より。カリー化そのものです。 module Main (main) where import System.Time nDaysLater :: Int -> ClockTime -> ClockTime nDaysLater n = addToClockTime noTimeDiff { tdDay = n } main :: IO () main = do let fiveDaysLater …

リストを逆順に表示

http://ja.doukaku.org/27/より。GHCのソースを見ると実装がふたつあります。 USE_REPORT_PRELUDEの場合。 reverse :: [a] -> [a] reverse = foldl (flip (:)) []なしの場合。 reverse :: [a] -> [a] reverse l = rev l [] where rev [] a = a rev (x:xs) a …

議席数をドント方式で

http://ja.doukaku.org/26/より。ふつう。 module Main (main) where import Data.List (sortBy, sort, group) dhondt :: Int -> [Integer] -> [Int] dhondt n = count . take n . deq . zipWith prepare [0 ..] where prepare :: Int -> Integer -> [(Doubl…