エロと風俗情報満載 どう抜く？より。いたってふつう。 module Main (main) where to13 :: Int -> Int to13 = sum . zipWith (*) (map (13 ^) [0 ..]) . tons where tons 0 = [] tons n = let (a, b) = n `divMod` 10 in b : tons a main :: IO () main = pr…

19:30ごろ帰りました。

なぜか7月は盛り沢山です。というか毎週末です。参加予定のイベントは以下です。 7/7(土) Haskell勉強会#5 7/14(土) Ruby勉強会＠関西-17 7/20(金)〜7/21(土) OSC2007-Kansai OSC2007-Kansaiの事前予約しておきました。kinnekoさんのセミナー参加します。吉…

情報源は、オータくんとこ。CD出てるからこれは買うべきでは。ぜひ。 参照: 無印良品＆PLAZAでハワイ！ ☆ Orange World ☆/ウェブリブログ