5 lines
132 B
Clojure
5 lines
132 B
Clojure
(defn dot [v1 v2] (reduce + (map * v1 v2)))
|
|
|
|
(defn show-pyramid [x z]
|
|
(doseq [row rows]
|
|
(println (map #(dot [1 x z] %) row)))
|