http://ja.doukaku.org/8/ pyramid n i | n == i = [replicate (2 * n - 1) '*'] | otherwise = let p = pyramid n (i + 1) in (f (reverse (f (head p)))):p where f [] = [] f (x:xs) = if x == ' ' then x:f xs else ' ':xs f n = mapM_ print $ pyramid n…

http://ja.doukaku.org/14/ s13 s = sum $ map (\(y,z) -> (13 ^ y) * (read [z])) $ zip [(length s)-1,(length s)-2..0] s f = [n | n <- [10..], n * 2 == s13 (show n)]

http://karetta.jp/article/blog/ll-spirit/033840 import Data.List data Oke = Oke {limit::Int, amount::Int} deriving (Show, Eq) type Oke3 = (Oke,Oke,Oke) (.<.) x1@(Oke l1 a1) x2@(Oke l2 a2) | l1 == a1 = Nothing | a2 == 0 = Nothing | l1 < (a1…

難しく考え過ぎていたことに気づいた。 And the more I see - the more I know The more I know - the less I understand. Paul Weller - The Changing Man(追記) なんか勘違いしてた。穴があったら入りたい。 (追追記) 修正。 module Main where import Deb…

一応動いたけど、ちょっと重い。手元のDebianでこんな感じ。もっとスマートな解き方が知りたい。 $ time ./Subway ~ 'r' ./Subway 123.53s user 0.98s system 76% cpu 2:43.08 totalmodule Main where s = ["zero", "one", "two", "three", "four", "five", …

http://d.hatena.ne.jp/bonotake/20070617/1182049744より。 (追記) リンク元によると問題読み違えてたみたい。転職に失敗しちゃったな。 *Main> exec 180 == (concatMap show [1..]) !! 180 True *Main> exec 5100000000 '3'five_one_billion = 5100000000 …

http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_E {- http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_E 2007.06.15 nisikawa -} import Text.ParserCombinators.Parsec data Genom = S Strin…

http://www.ospn.jp/osc2007-do/

http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_D {- http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_D 2007.06.12 nisikawa -} import Data.Maybe (fromJust) import Data.List (find, zipW…

Dave Thomasが素敵すぎた。もう毎年Daveをよんでください。 あと須藤さんにMacをあげてください。 > Appleのひと

RubyKaigi2007に行ってきた。発表者、スタッフ、参加者のみなさま1日目お疲れさまでした。速報ログが素晴らしい。 http://jp.rubyist.net/RubyKaigi2007/Log.html 会場でRHGをゲットしました。あるところにはあるんですね。これは積んどかない。Rubyソースコ…

http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_B {- http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_B 2007.06.07 nisikawa -} import Control.Arrow import Data.List (nub) revF (x, y) =…

via http://d.hatena.ne.jp/zyxwv/20070606 入出力はサボった。 http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_A {- http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_A 2007.06.06 nisikawa …

http://karetta.jp/article/blog/oneline/030146より。 $ runhaskell FizzBuzz3.hs 1 100 2 Hage 3 Fizz 5 Buzzmodule Main where import System (getArgs) data FB a = FB (a, String) instance Monad FB where return x = FB (x, "") m >>= f = bind m f w…

Library not loaded: /usr/local/mysql/lib/mysql/libmysqlclient.15.dylib$ cd /usr/local/mysql/lib $ sudo mkdir mysql $ cd mysql $ sudo ln -s ../libmysqlclient.15.0.0.dylib libmysqlclient.15.0.0.dylib $ sudo ln -s ../libmysqlclient.15.0.0.dyl…

http://research.microsoft.com/~simonpj/papers/meta-haskell/ http://www.haskell.org/hawiki/TemplateHaskellTutorial 先週読んでたPDFを読み切った。途中ちょっと振り切られた。Tutorialの方は動くコードがたくさんあって良かった。Compile-Time IOには…

http://www.realworldhaskell.org/blog/ http://radar.oreilly.com/archives/2007/05/real_world_hask.html 今更かもしれないけど一応紹介しときます。O'Reillyさんから出るHaskellの本について。入門書というよりはテスト,DB,FFI,Web,GUIなど"Real-World"な…

http://www.haskell.org/haskellwiki/Template_Haskell http://research.microsoft.com/~simonpj/papers/meta-haskell/ PDFを6ページくらい読んだところ。英文読んでると寝てしまう。なんでだろ。 > ghc --make -fth Main.hs -o main > ./main "World\!" "He…

書いてみた。もっとカッコ良く書けると思うんだけど。ArrowChoiceとか使って。 import Control.Arrow newtype FB a b = FB {run :: a -> b} instance Arrow FB where arr f = FB f (FB f) >>> (FB g) = FB (g . f) first (FB f) = FB (first f) fizzbuzz = m…

http://www.netlab.jp/news/2007/05/16/20070516/#extended 『Ruby＋アジャイルによるインクリメンタル反復開発』の各事業を営業目的とする共同出資会社の設立を検討いたします。こいつはくせぇーッ！ 金のにおいがプンプンするぜッーッ！、というのは冗談で…

書いてみた。 data FB a = FB (a, String) instance Monad FB where return x = FB (x, "") m >>= f = bind m f where bind (FB (x, y)) f = let FB (m, n) = f x in FB (m, y ++ n) instance (Show a) => Show (FB a) where show (FB (x, "")) = show x sho…

http://karetta.jp/blog/gauche-night GaucheNightにいってきた。おもしろかったです。関係者の人、参加者の人おつかれさまでした、ありがとうございました。 以下はメモ時々感想。理解が追いついていないところが多々あるのでアレかもしれないけど。 座談会…

ちょっとはHaskellらしく書けたかな。 map fst $ zip (concat (repeat ["","","Fizz","","Buzz","Fizz","","","Fizz","Buzz","","Fizz","","","FizzBuzz"])) [1..100](追記) コメントをいただいたので、修正。 zipWith (\x y -> if x == "" then show y else…

ちょっと前にGHCを6.6.1にした。mac portsで。System.FilePathは便利そうだ。あとhasktagsの存在を知った。 find -name "*.hs" | xargs hasktags -cあとは適当にsortして。vimに食わせて。

9日間ほとんどどこにも行かず家にいた。まとまった時間があったけど何もしなかった。ちょっと風邪をひいた。嫁さんと子供にもしっかりうつちゃったようで申し訳ない。が、大したこと無さそうで何ヨリだ。子供をお風呂にいれるのがうまくなった。仲良くなった…

本当に今更なんだけどredditにアカウントを作りました。最近、本家のprogramming.redditをチェックしてて楽しそうだなぁ、と。

http://karetta.jp/blog/gauche-night GaucheNightにいってきた。おもしろかったです。関係者の人、参加者の人おつかれさまでした、ありがとうございました。 以下はメモ時々感想。理解が追いついていないところが多々あるのでアレかもしれないけど。 座談会…

今までTwitterrificを使ってたんだけど、うっとおしくなってきたので、ターミナルでTwitterを表示するスクリプトを作りました。やっぱターミナルだよね。 下記のページを参考というかほぼパクらしていただきました。ありがとうございました。 http://mono.km…

子供と嫁さんが上京した。これでまた元の飼い犬生活か、とガックリもするし、親子3人で生活できることがうれしくもある。ちょい複雑。 我が愛娘はこの前、会ったときと比べてそれほど変わったところはないかな。お腹が空いたら指しゃぶりをするようになった…

Web2.0ビギナーズバイブル作者: 伊藤浩一,大津真,岸田健一郎,まえだひさこ,安井力出版社/メーカー: 毎日コミュニケーションズ発売日: 2007/04メディア: 単行本 クリック: 2回この商品を含むブログ (12件) を見る献本いただきました。ありがとうございます。…