redcat_prog https://blog.hatena.ne.jp/redcat_prog/ 似非プログラマの覚え書き https://redcat-prog.hatenadiary.org/ Haskell 「プログラミング Haskell」に subs という関数が書いてあった。 subs :: [a] -> [[a]] subs [] = [[]] subs (x : xs) = (subs xs) ++ map (x :) (subs xs) Haskell は神の言語か…? ちなみに一説によれば一行でも定義できるらしいのだが…。追記 : 可読性やメンテナンスのしやすさを考慮すると行数が増えるがこう書いた方が良い。 subs :: [a] -> [[a]] subs [] = [[]] subs (x : xs) = xss ++ map (x :) xss where xss = subs… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fredcat-prog.hatenadiary.org%2Fentry%2F20120801%2F1343756758" title="配列を集合に見立ててべき集合を生成する(Haskell 版) - 似非プログラマの覚え書き" 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 2012-08-01 02:45:58 rich https://redcat-prog.hatenadiary.org/entry/20120801/1343756758 1.0 100%