11.7 練習問題 ライブラリ関数concatとmapを用いる代わりに、リスト内包表記を使って、組み合わせの関数choicesを再定義せよ。 10章の練習問題でリストモナドについて書いたことを思い出せば簡単。 choices' :: [a] -> [[a]] choices' xs = [zs | ys <- subs…