nskj77 https://blog.hatena.ne.jp/nskj77/ トウフ日記 https://nskj77.hatenadiary.org/ あともうちょっとなんだけど重くて動かない。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]:concatMap (f' x) [1..(x-1)] f' x y = map (++ [(x-y)]) $ f y showResult :: [[Int]] -> S… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnskj77.hatenadiary.org%2Fentry%2F20060918%2F1158587313" title="日本情報オリンピック 第5回本選 第3問 Reloaded - トウフ日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2006-09-18 22:48:33 rich https://nskj77.hatenadiary.org/entry/20060918/1158587313 1.0 100%