«前の日記(2017-06-21) 最新 次の日記(2017-06-24)» 編集

ɥozɐʞıɥ


2017-06-22 パスカルの三角形 [長年日記]

_ [Clojure] パスカルの三角形

Clojureでパスカルの三角形 - Programmer's Noteに触発されてiterateで書いてみました。次の行を得るのは同じロジックになっちゃいます。

(defn nextRow[c]

(->> (partition 2 1 c)

(map (fn[[a b]](+' a b)))

(#(concat [1] % [1]))

(vec)))

(iterate (fn[a](concat a (list (vec (nextRow (last a)))))) '([1]))

+'でBuffer Over Flowを回避しました。参考→FibBuzz in Clojure · GitHub*1

*1 06/27追記



2002|09|10|11|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|07|08|09|
«前の日記(2017-06-21) 最新 次の日記(2017-06-24)» 編集