パスカルの三角形、もう少し
epicsさんの続・パスカルの三角形の下の方に「挫折した方法」というのがあったので、そこから発展させてみました。ちょっと発想を変えまして…。
(1..9).inject([[1]]) {|c, n| c << eval(c[n - 1].inject("[0+") {|s, k| s + "#{k},#{k}+"} + "0]") }.each {|line| p line }
だめかしらん♪
実行結果です。
[1] [1, 1] [1, 2, 1] [1, 3, 3, 1] [1, 4, 6, 4, 1] [1, 5, 10, 10, 5, 1] [1, 6, 15, 20, 15, 6, 1] [1, 7, 21, 35, 35, 21, 7, 1] [1, 8, 28, 56, 70, 56, 28, 8, 1] [1, 9, 36, 84, 126, 126, 84, 36, 9, 1]