如何生成一个重复的string？

Emacs-Lisp
1

期望:

(make-repeated-string "foo" 3)
=> "foofoofoo"

搜了一下只找到common lisp的：Lisp format a character a number of times - Stack Overflow ，用的cl的format，参数和elisp的不一样。

大概是dotimes+concat?

2 
(defun make-repeated-string (x n)
  (apply #'concat
         (loop repeat n
               collect x)))
2 个赞
3
2 个赞
4 
(apply #'concat (make-list 3 "foo"))
;; => "foofoofoo"

(cl-loop repeat 3 concat "foo")
;; => "foofoofoo"

(let (ret)
  (dotimes (_ 3)
    (setq ret (concat ret "foo")))
  ret)
;; => "foofoofoo"

(let ((i 0)
      ret)
  (while (< i 3)
    (setq ret (concat ret "foo")
          i (+ i 1)))
  ret)
;; => "foofoofoo"

(with-temp-buffer
  (dotimes (_ 3) (insert "foo"))
  (buffer-string))
;; => "foofoofoo"
2 个赞
5

效率上哪个比较有优势？

6

(apply #'concat (make-list 3 “foo”))

2 个赞
7

都差不多，或者说都足够快。

8

比较简洁的写法应该是 (apply #'concat (make-list 3 "foo"))。

s-repeat 采用 cons + while 循环，而没有采用 make-list （c 实现是 cons + for）。在 elisp 和 c 中循环，效率差多少？

make-list

cons