あともうちょっとなんだけど重くて動かない。12点。 module Main (main) where import Control.Monad import Data.List (nub, sortBy) import System.Environment ex = nub . map (sortBy (flip compare)) . f f :: Int -> [[Int]] f 1 = [[1]] f x = [x]:co…

東中野の韓国料理屋ソナムで夕食。カムジャタンを食べて手がベタベタになったがおいしかった。

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

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

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

色々と忙しくなってきたから手抜きする。 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 …

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

冗長に。 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…

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