我如何创建一个函数，用其他字符串替换给定的开始和结束索引的子字符串

Question

我有一个字符串“Hello”，我想用另一个字符串替换两个索引之间的字符，比如说“Foo”。例如。

(defn new-replace [orig-str start-index end-index new-string] ...) 

(= "Foollo" (new-replace "Hello" 0 2 "Foo")) => true 
(= "Foolo" (new-replace "Hello" 0 3 "Foo")) => true 

有什么建议吗？干杯

Answer 1

这里有一种方法：

(defn new-replace [orig-str start-index end-index new-string] 
    (str (apply str (take start-index orig-str)) 
     new-string 
     (apply str (drop end-index orig-str)))) 

Answer 2

Stringbuffer已经防阻一个替换功能：

(defn new-replace [orig-str start-index end-index new-string]                                      
    (str (.replace (StringBuffer. orig-str) start-index end-index new-string)))