4clojure第97个问题：杨辉三角

2023年6月7日 201次阅读 来源: 杨辉三角问题 
(ns for-clojure.problem97)
(defn pascals-triangle-1
  "杨辉三角"
  [n]
  (if (= n 1)
    [1]
  (loop [m 2 
         r [1]]
    (let [next-r (into [] (map #(apply + %) (partition 2 1(concat [0] r [0]))))] 
      (if (= m n)
        next-r
        (recur (inc m) next-r))))))

(pascals-triangle-1 11)

(defn pascals-triangle-2
  "杨辉三角下一行的结果由上一行的结果产生，因此可以使用iterate函数"
  [n]
  (nth (iterate 
          (fn [r] 
            (into [] 
                  (map #(apply + %) (partition 2 1 (concat [0] r [0]))))) 
          [1])
       n))

(pascals-triangle-2 11)

    原文作者：杨辉三角问题
    原文地址: https://blog.csdn.net/goodluckforlove/article/details/8667908
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞