{"categories":[],"url":"https://nskj77.hatenadiary.org/entry/20060918/1158587313","provider_name":"Hatena Blog","image_url":null,"blog_title":"\u30c8\u30a6\u30d5\u65e5\u8a18","width":"100%","height":"190","type":"rich","author_name":"nskj77","version":"1.0","blog_url":"https://nskj77.hatenadiary.org/","description":"\u3042\u3068\u3082\u3046\u3061\u3087\u3063\u3068\u306a\u3093\u3060\u3051\u3069\u91cd\u304f\u3066\u52d5\u304b\u306a\u3044\u300212\u70b9\u3002 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\u2026","published":"2006-09-18 22:48:33","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnskj77.hatenadiary.org%2Fentry%2F20060918%2F1158587313\" title=\"\u65e5\u672c\u60c5\u5831\u30aa\u30ea\u30f3\u30d4\u30c3\u30af \u7b2c5\u56de\u672c\u9078 \u7b2c3\u554f Reloaded - \u30c8\u30a6\u30d5\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/nskj77/","title":"\u65e5\u672c\u60c5\u5831\u30aa\u30ea\u30f3\u30d4\u30c3\u30af \u7b2c5\u56de\u672c\u9078 \u7b2c3\u554f Reloaded","provider_url":"https://hatena.blog"}