http://karetta.jp/article/blog/oneline/011153から。 *Main> allSubs $ matrix 3 3 [[[1]],[[1,2]],[[1,2,3]],[[2]],[[2,3]],[[3]],[[1],[4]],[[1,2],[4,5]],[[1,2,3],[4,5,6]],[[2],[5]],[[2,3],[5,6]],[[3],[6]],[[1],[4],[7]],[[1,2],[4,5],[7,8]],[[1,…