2009-02-02から1日間の記事一覧
Problem 189 - Project Euler まぁ,DPですな. import Data.List (delete,nub) import Data.Maybe (mapMaybe) import Data.Map (fromListWith,toList) import Control.Arrow ((***)) data Color = R | G | B deriving (Eq,Ord,Show) normal :: [Color] -> […