2007-06-01から1ヶ月間の記事一覧

haskell]地下鉄の求人広告3

難しく考え過ぎていたことに気づいた。 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…

地下鉄の求人広告2

一応動いたけど、ちょっと重い。手元の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 …

ACM国際大学対抗プログラミングコンテスト(E)

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…

オープンソースカンファレンス2007 Hokkaido

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

ACM国際大学対抗プログラミングコンテスト(D)

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…

RubyKaigi2007(二日目)

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

RubyKaigi2007(一日目)

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

ACM国際大学対抗プログラミングコンテスト(B)

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) =…

ACM国際大学対抗プログラミングコンテスト(A)

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 …

FizzBuzz一般化

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…