でてます。 はてなスター はてなメッセージ

18:00ごろ帰りました。

Problem C: Numeral Systemより。ふつうに実装。StringがCharのリストだと楽です。エラーチェックはしていません。変な入力を与えると落ちます。 module Main (main) where import Data.Char (isDigit, digitToInt) import Text.Printf (printf) toMCXI :: I…

という進行があります(ひとつのコードは2拍です)。「たまにはハイコードを」と思って と弾いてみるとといい感じ。特にEm→Am(というかAm7)→Emのあたりが。

18:00ごろ帰りました。

Problem A: Keitai Messageより。Stateモナドを使って、こんな感じかな。今ひとつ美しさにかける気がします。 module Main (main) where import Control.Monad.State (State, execState, get, put) import Data.List (group, (!!)) key :: (Char, Int) -> St…

18:00ごろ帰りました。

電車の中でさらっと読み終えてしましました。 この分量で4つのジャンルの違うゲームを説明しているのは密度濃いなーと思います。MyGameは、ゲームをさらっと作るには便利そう。対象ユーザが明確でほどよい感じがします。バランス感覚重要。 んー、僕も何か作…

ウクレレの人たちが練習をしているということなので、その打ち上げに合流しました。ワイン飲み過ぎて結構ふらふらでしたが。。。このところ心配していた方が元気そうで安心しました。ほっ。 飲み会のときに何故か僕かもっと芸術(アート)を学んだ方がよいとい…

モリモリくんのお誘いでバーベキューに行きました。ボリビア人のだいちゃん主催。皆さま、お疲れ様でした。僕は花見に続いて二回目の参加でした。 ちょっとコゲめの付いた肉が香ばしくおいしかったです。あとサングリアは当たり前だけどとってもフルーティで…

参加者の皆さん、お疲れ様でした。ガラムの旬の野菜カレー、野菜たっぷりでおいしゅうございました。 さて今日の演習の課題。標準入力から読み込んで、各行を60文字ずつ改行して、標準出力に出力するプログラムです。interact便利です。 module Main (main) …

エロと風俗情報満載 どう抜く？より。 うーん、ダメです。Haskellで解けません。Rubyだったらアルファベット(+ 空白)を一文字も使わずに解けるのに… $><<"\110\145\154\154\157\54\40\167\157\162\154\144\41\41" # => Hello, world!!

エロと風俗情報満載 どう抜く？より。いたってふつう。 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 ☆/ウェブリブログ

17:45ごろ帰りました。

http://ja.doukaku.org/8/より。 Haskellの場合。 module Main (main) where pyramid :: Int -> [String] pyramid n = [(replicate (n - i) ' ' ++ replicate (i * 2 - 1) '*') | i <- [1 .. n]] main :: IO () main = putStr $ unlines $ pyramid 4 -- => *…

18:00ごろ帰りました。

id:rubyco:20070704:mulを見て、「これはリストモナドだ〜」と思いました。こんな感じ。 module Main (main) where main :: IO () main = mapM_ putStrLn f where f :: [String] f = do c1 <- ['-', '=', '+'] c2 <- ['-', '=', '+'] c3 <- ['-', '=', '+'] …

id:ayabaud:20070704:1183527974を見て、Rangeクラスにrandがあればいいのにと思いました。こんな感じ。 class Range def rand n = exclude_end? ? last - first : last - first + 1 Kernel::rand(n) + first end end p((1940 .. 1980).rand)

年をひとつとりました。ついに5ビット全部1が立ちました。10h代も最後の年です。 この年になるといろいろと考えてしまうことはあるのですが、何はともあれ健康に育ててくれた両親に感謝です。

次回の関レレ7月例会ソロコースですが、僕がインストラクタを担当させていただきます。曲は「オリビアを聴○ながら」です。しっとりまったり。僕がよく弾くような感じの曲です。今まで僕が持っていった曲の中では難易度が高い部類に入るかと思いますが、がん…

びわこ開発合宿で開発したライブラリです。プレゼン資料へのリンクだけじゃアピールが足りないかなと思って、ブログに直してみました。 これって何？ Rubyで関数型プログラミングをサポートするライブラリです。 Haskellの影響を多分に受けています。 Haskel…

本日、有給でした。計画的な有給ですので誤解のなきよう。D*T*D*のせいではありません。

びわこ開発合宿に間に合わなかったので今さらな気もしますが、ようやくHIGHER-ORDER PERLが到着しました。第1章に整数を2進数の文字列に変換する関数が載っていたので、それをHaskellに直してみました。 module Main (main) where binary :: Int -> String b…

Rubyで関数型プログラミングをするライブラリです。いつものgemの手順でインストールできます。exampleディレクトリに階乗とフィボナッチ数のサンプルを入れておきましたので興味のある人はぜひ。 $ gem install cohiなおこのライブラリはびわこ開発合宿の開…