ɥozɐʞıɥ

2010-07-03 もう７月カー [長年日記]

_ 蕁麻疹

昨夜から蕁麻疹が酷い

_ 朝

一番で病院へごーごー。今回はセレスタミンも処方していただきました。

_ [食事][買物] 昔ながらのとろとろさしみたまり

_ [食事][買物] 醤油ごま

_ 散髪

行ってきた。今回はちょっと早めでした。

_ 呑み会

友人のケコーン記念呑み会にお出かけ。今週3回目の呑み。

[ツッコミを入れる]

2010-07-04 暑いなー [長年日記]

_ 朝

暑さで目覚めた。昨夜もけっこー呑んだのだが焼酎にしたのでそれほど残ってない！

_ [Diet] ランニング

このところ呑みすぎもあって朝のうちに走ってきました。

本日は途中で膝を痛めてしまい30分で帰ってきました。

あぁ、トシねぇ。

_ [CD][買物][Music] WooHoo(初回限定盤)(2CD) by 山下達郎

9/15に5年ぶりの新譜キター。初回限定版はJOY

1.5も付いてきます。

10月のLiveも当たっているし、嬉しいなぁ。

本日のツッコミ(全4件) [ツッコミを入れる]

_ 牛魔王 [わしじゃ今週はシリコンバレーからじゃステーキまみれ共食いの毎日じゃー]

_ ひかぞぉ [をぉ、牛さん久しぶりじゃのぉ。校庭液をとーとー輸出したのかぁ。涎を撒き散らさんようにのぉ]

_ 牛魔王 [検疫で何度も止められての、なにしにきたんじゃと大変じゃった。牛がPC3台持ち込むとは何事じゃと昨日は欠けリンゴの..]

_ ひかぞぉ [PCを3台も持ち込んだらそりゃ疑われるんじゃー。欠けたリンゴの本社ってクパチーノに在るんじゃのぉ。い○て○はどう..]

2010-07-10 土日しか書けない [長年日記]

_ 本日

E天気ですねー。木曜日にほぼ徹夜に近かったのもあって…ボロボロですな。

_ [映画] Dr.パルナサスの鏡 [DVD]

不条理系の映画でした。相方はじっくり観ていたのですが、ヲレは半分寝ていた状態だったのです（汗。

[ツッコミを入れる]

2010-07-11 選挙なサンデー [長年日記]

_ 朝

ひかぞーのPIANO発表会が近いのでLessonを見学する。

まぁまぁ上手になってきた→親ばか。

感情を持った弾き方はまだ難しいんじゃないかなぁ。

_ 投票

行ってきました。

_ [食事] ラーメン

投票帰りに近所の割合評判の高いラーメン屋に久しぶりに入った。

前回より好みの味になった気がする。

チャーシュー麺 posted by (C)ひかぞぉ

つけ麺 posted by (C)ひかぞぉ

中華ざる麺 posted by (C)ひかぞぉ

[ツッコミを入れる]

2010-07-13 最近は早起き [長年日記]

_ 朝

昨日は4時にBootした。本日は5:30にBootした。Bootしてから色々調べ物が出来ました。ちょっと良い感じ。朝型に向けてShiftChangeだ。

_ [買物][本][Lisp] 実用 Common Lisp (IT Architects’Archive CLASSIC MODER)

実務では使わないがお勉強ですね。FirstObjectは関数が好みです。

[ツッコミを入れる]

2010-07-15 朝型へ [長年日記]

_ 朝

5:50にbootしました。

_ [F#] delegate

ボチボチとF#をお勉強始めました。

delegateはof句に続き引数の仮宣言して、->で戻り値ですかね。


type delegatedFunc = delegate of int * int -> string
let ret = (new delegatedFunc(fun x y -> "Return = " +   System.Convert.ToString(x * y))).Invoke(10,20)
System.Diagnostics.Debug.WriteLine(ret)

_ [F#] アクティブパターン(FuzzBuzzもやってみる）

奇数・偶数の判定


let (|Judge|_|) j =
   match j%2 with
   | 0 -> Some(Judge)
   | _ -> None

let Judge j =
   match j with
   | Judge j -> "Even"
   | _ -> "Odd"

do {1..10} |> Seq.iter(
   fun x -> System.Diagnostics.Debug.WriteLine(
               System.Convert.ToString(x) + " is " + Judge x))

FuzzBuzzもお試し。コードはダサいけど晒す。


let (|Fuzz|_|) i =
   match i%3 with
   | 0 -> Some(i)
   | _ -> None

let (|Buzz|_|) i =
   match i%5 with
   | 0 -> Some(i)
   | _ -> None

let (|FuzzBuzz|_|) i =
   match i%15 with
   | 0 -> Some(i)
   | _ -> None

let FuzzBuzz i =
   match i with
   | FuzzBuzz i -> "FuzzBuzz"
   | Fuzz i -> "Fuzz"
   | Buzz i -> "Buzz"
   | _ -> System.Convert.ToString(i)

{0..60} |> Seq.iter(fun x -> System.Diagnostics.Debug.WriteLine(FuzzBuzz x))