2006-09-18から1日間の記事一覧
あともうちょっとなんだけど重くて動かない。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…
あともうちょっとなんだけど重くて動かない。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…
