3連休の1日目

今日は結局体がしんどくて家事手伝いなどをしながら、1日休んでました。もう疲労がコンパイる。健康診断の結果も返ってきたし、生活態度を改めなくてはと思った。思っただけだけど。

2006-09-16

日本情報オリンピック第5回本選第2問 Reloaded

module Main (main) where import Control.Monad (liftM) import Data.List (group) import System.Environment (getArgs) execute :: Int -> String -> String execute n = flip (!!) n . iterate execute' where execute' :: String -> String execute' = …

2006-09-16

日本情報オリンピック第5回本選第1問 Reloaded

Write Yourself a Scheme in 48 Hoursはちょっと中断。Schemeのこと良く知らないしダメだ>自分。もう1回情報オリンピックの問題をちゃんと解こう。こういうところは実にしつこいな>自分。 module Main (main) where import Control.Monad (liftM) import Da…

2006-09-06

日本情報オリンピック第5回予選第5問目

色々と忙しくなってきたから手抜きする。 retry :: Int -> Float -> Float retry 0 _ = 0 retry 1 x = sum $ map ((*) ((/) 1 x) . (/) 1) [1..x-1] play :: Int -> Float -> Float play x y = ((/) 1 y) + (retry x y)明日からは、Write Yourself a Scheme …

2006-09-03

日本情報オリンピック第5回予選第4問目

今回も思い切り富豪化してしまった...orz この手の問題は何かツボというか急所というかそういうのがあるのかな? module Main (main) where import Data.List import System import Control.Monad import Control.Monad.State type Cups = [Int] data Ts = Ts…

2006-09-03

日本情報オリンピック第5回予選第3問目

冗長に。 module Main (main) where import System import Control.Monad data Dice = Dice { v1 :: (Int, Int), v2 :: (Int,Int), v3 :: (Int,Int) } deriving (Show) north :: Dice -> Dice north d = Dice { v1 = v2 d, v2 = swap (v1 d), v3 = v3 d } ea…

2006-09-01

ふつケル勉強会第13回

今日は世をしのぶ仮の仕事の打ち合わせで参加できず。しかしつまんねー打ち合わせだったな。 id:redrisefirmさんがキタ。おひさしぶりです、あいかわらず小さいマシン使ってますね。参加できなくてすいませんでした。本物のプログラマであるshelarcyさんが…

2006-08-30

日本情報オリンピック第5回予選第2問目

もっと大きなモノを書いてみたいという欲求がムクムクと。 module Main (main) where import System import Control.Monad import Data.List (lookup, tails) makeAssocList :: [String] -> [(String,String)] makeAssocList = map (listToTuple . words) wh…

2006-08-30

境界を越える

http://www-06.ibm.com/jp/developerworks/java/060830/j_j-cb07186.shtml Haskellは末尾再帰を最適化しているわけじゃないと思うぞ。Tateたんよ。

2006-08-27

日本情報オリンピック第5回予選第1問目

module Main (main) where import System import Control.Monad play :: (Int,Int) -> (Int,Int) play (x,y) | x == y = (x,y) | x < y = (0,x + y) | otherwise = (x + y,0) execute :: [(Int,Int)] -> (Int,Int) execute xs = foldr1 (\(p,q) (r,s) -> (p+…

2006-08-26

LL Ring

行ってきた。 Language Update shiroさんのハワイからの中継が良かった。お話ぶりに知性を感じました。途中Common Lispにひとくさり入れたんだけどそれさえも品がありましたっていうのは、やっぱり大人なんだな。素敵でした。それからSqueakは今年もスゴかっ…

2006-08-25

ふつケル写経会第12回

今日は第9章の途中から。 id:amapyonさんに写真をとられた。自分の背中が曲がっていることに気づく。これはイカン。 newtypeの使いどころがよく分からない。 Haskellを始めたばかりの頃は型と型クラスのことがよく分からなくて困ったっけ。型、型クラスを勉…

2006-08-23

日本情報オリンピック第5回本選第5問

まだ途中。富豪的な発想で。やっぱりこれじゃあダメだよねぇ。 module Main (main) where import Data.List import System type Points = [[Int]] point :: (Int,Int) -> (Int,Int) -> Points point (p,q) (r,s) = sequence $ [[p..(r-1)],[q..(s-1)]] makeP…

2006-08-22

日本情報オリンピック第5回本選第4問

ギブアップ。正直手が出なかったなー。お、nobsunさんによる素晴らしい解答がOSSWebに! http://oss.timedia.co.jp/index.fcgi/kahua-web/show/ossz/oneline/2006-08-17 私の1問目、2問目、3問目も結構ボロボロだな。凹む。もっと「書かない」ということを真…

2006-08-18

ふつケル写経会第11回

今日もたんたんと。9章から。セレクタはトップレベルの関数として暗黙に定義される。C言語の構造体気分でバカバカ作成すると名前ぶつかりそうだな data Hoge = Hoge {hoge :: String, fuga :: Int} data Fuga = Fuga {fuga :: String, piyo :: Bool}そろそ…

2006-08-17

「ガウディの伝言」が素晴らしすぎる件について

ガウディの伝言 (光文社新書)作者: 外尾悦郎出版社/メーカー: 光文社発売日: 2006/07/14メディア: 新書購入: 3人クリック: 23回この商品を含むブログ (23件) を見る「ガウディの伝言」が本当に素晴らしい。著者は自身も彫刻家としてサグラダファミリアの建…

2006-08-13

2問目

--2006年本選2問目より module Main (main) where import System import Control.Monad.State main = do (filePath:_) <- getArgs contents <- readFile filePath let (x:y:_) = lines contents in writeFile "output.txt" $ last (evalState (sequence (rep…

2006-08-13

3問目

--2006年本選3問目より module Main (main) where import System import Data.List (intersperse) main = do (inputFile:_) <- getArgs contents <- readFile inputFile let n = read contents in writeFile "output.txt" $ dump $ sheeds n sheeds :: Int -…