如何以惯用的clojure方式重复n次？

Question

在Ruby中,"str" * 3会给你"strstrstr".在Clojure中,我能想到的最接近的是,(map (fn [n] "str") (range 3))是否有更惯用的方法呢？

Answer 1

这个怎么样？

(apply str (repeat 3 "str"))

要不就

(repeat 3 "str")

如果你想要一个序列而不是一个字符串.

Answer 2

还有一个使用协议的有趣选择:

(defprotocol Multiply (* [this n]))

接下来扩展String类:

(extend String Multiply {:* (fn [this n] (apply str (repeat n this)))})

所以你现在可以'方便'使用:

(* "foo" 3)

Answer 3

您还可以使用clojure.contrib.string中的repeat函数.如果使用require等将其添加到命名空间

(ns myns.core (:require [clojure.contrib.string :as str]))

然后

(str/repeat 3 "hello")

会给你

"hellohellohello"

Answer 4

只是为了抛出更多令人敬畏且充满希望的发人深省的解决方案.

user=> (clojure.string/join (repeat 3 "str"))
"strstrstr"

user=> (format "%1$s%1$s%1$s" "str")
"strstrstr"

user=> (reduce str (take 3 (cycle ["str"])))
"strstrstr"

user=> (reduce str (repeat 3 "str"))
"strstrstr"

user=> (reduce #(.concat %1 %2) (repeat 3 "str"))
"strstrstr"