32nd Diary

■ 飲食店でアルバイトしている子

今日，授業の一環で学部の一年生が研究室にきた．

細かい話はめんどいので書きませんけど， やっぱ飲食店でアルバイトしているような 男の子は血色が違うね．

なんかね．明らかにね．いい意味でね．浮いてましたよ．

あー，そういえば，ボクも一応接客と言えなくもないバイトはじめたんだった．

客コナイケドネ！！

■ 時刻表は手軽に見れるようになったが．．．

Dash Stationを使い，最寄り駅の時刻表を手軽に見れるようになった．．．

が！

ボクには腕時計をする習慣がない！！(駅に向かい，歩いている途中に気づきました．平和ですね．

いや，持ってるんですけど， 手首とか締められる感覚がなんとなくイヤで腕につけないことが多い． 外しておもちゃとしてガチャガチャいじるか，すぐにかばんにしまってしまう．

かといって電話の時計はW-ZERO3を使っているので， わざわざ取り出すのが面倒だ．．．

ううむ．腕時計くらい手首につけるようにするかねぇ． なんとなく気分も大人になるし．（ナンダソレ

■ 水玉つぶしをHaskellで解こうとしたが挫折

最近，また 水玉つぶし がちょっと研究室で流行っている風味．

せっかくだから，こいつをHaskellで解いてやるぜと意気込んでちょっくら必要な関数を書いていました．

nextBoard :: Board -> Position -> Board
nextBoard b (i, j) = ls0 ++ (xs0 ++ x+1:xs1) : ls1
    where (ls0, l:ls1) = splitAt i b
          (xs0, x:xs1) = splitAt j l

とか

nextTargets :: Board -> [Position]
nextTargets b = filter (/= (-1, -1) )
                $ map target [(i,j) | i <- [0..5], j <- [0..5]]
                where target (i,j) = if b !! i !! j /= 0
                                     then (i,j)
                                     else (-1, -1)

とか

ところがここで致命的なことに気づいた． このゲームは単純に手順だけで解が明らかになるパズルゲームでなく，水玉が飛ぶスピードとか破裂に要する時間も解に関係するじゃん！！

こんなのすぐに表現できないよ．．．

っつーわけで，おもっくそorzしましたとさ．