32nd Diary

トップ | 最新 | 過去の日記 | もっと過去の日記

2006年
5月
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31
めーるあどれす
ruby -rbase64 -e'puts Base64.decode64 %q(dGFrYW5vMzJAZ21haWwuY29t)'



2006-05-29 (Monday) [長年日記]

[Life][Univ] 飲食店でアルバイトしている子

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

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

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

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

客コナイケドネ!!

[Mac] 時刻表は手軽に見れるようになったが...

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

が!

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

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

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

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

[Univ][Haskell][Game] 水玉つぶしを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しましたとさ.

本日のツッコミ(全2件) [ツッコミを入れる]
shoo (2006-05-30 (Tuesday) 01:08)

私は秒単位まで合っている腕時計をしていないと落ち着かないので、高校時代以来外出時は常にしているのですが、目的地に着くなどして落ち着くと手首が蒸れるのが嫌で無意識的に外すので、よく行方不明になります(ぉ

32 (2006-05-30 (Tuesday) 13:19)

あー,とても共感します.<br>ついつい腕時計とか外してしまうんですよね.<br>ネクタイとか腕時計とかそれ系のものは外すときの開放感というか,そういうのが気持ちいいからみんなしているんじゃないかと思うこのごろ(わら

本日のPingbacks(全0件)