http://ja.doukaku.org/29/より。カリー化そのものです。 module Main (main) where import System.Time nDaysLater :: Int -> ClockTime -> ClockTime nDaysLater n = addToClockTime noTimeDiff { tdDay = n } main :: IO () main = do let fiveDaysLater …

http://ja.doukaku.org/27/より。GHCのソースを見ると実装がふたつあります。 USE_REPORT_PRELUDEの場合。 reverse :: [a] -> [a] reverse = foldl (flip (:)) []なしの場合。 reverse :: [a] -> [a] reverse l = rev l [] where rev [] a = a rev (x:xs) a …

http://ja.doukaku.org/26/より。ふつう。 module Main (main) where import Data.List (sortBy, sort, group) dhondt :: Int -> [Integer] -> [Int] dhondt n = count . take n . deq . zipWith prepare [0 ..] where prepare :: Int -> Integer -> [(Doubl…

モリモリくんに教えてもらった茶屋町のお店です。 食べたもの。最近食が細くでこれで十分でした。パスタが一番おいしかった。豆乳がクリーミー。 サラダ(名前忘れた。。。) フレッシュ水なすのカルパッチョ 味噌とブルーチーズのソース ノルウェー産サーモン…