clojure 乘法口诀表

(defn kj [x]
  (letfn [(f [x y] (format "%d*%d=%d" x y (* x y)))
  (g [c] (clojure.string/join " " (map #(f % (count c)) c)))
  (t [] (map #(range 1 (inc %)) (range 1 (inc x))))]
    (let [t (t)] (pprint (map g t)))))

(kj 9)

你可能感兴趣的:(clojure)