(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)
(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)
扫一扫
288
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
