2007-06-01から1ヶ月間の記事一覧
難しく考え過ぎていたことに気づいた。 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…