在球拍中，如何使用字符串 - >列表或列表 - >字符串函數來替換字符串中的單詞？

Question

所以當我回答這個問題時，我練習了球拍初學者的語言。

編寫一個函數str-replace它消耗一個字符串，一個目標字符和一個 替換字符。該函數產生一個新的字符串，它與消耗的字符串相同，並且所有出現的目標字符（如果有的話）被替換字符替換。例如，(string-replace "word" #\o #\y) ⇒ "wyrd"。

注意： 我不能使用string->list和list->string以外的任何內置字符串函數。

於是我開始用代碼現在我卡住了，我怎麼使用包裝函數這個代碼就我現在只有這

;; los is list of string  
(define(str-replace los) 
    (+(first los) 
    (first (rest los)) 
    (first (rest (rest los))) 
    (first (rest (rest (rest los)))))) 

Answer 1

定義其上列出了操作轉換功能：

(define (replace-in-list input-list from-char to-char) 
    (if (null? input-list) 
     ... 
     (cons ... 
      (replace-in-list ... from-char to-char)))) 

^{（你必須填寫空白...）}

而且從另外一個稱呼它：

(define (str-replace input-string from-char to-char) 
    (list->string 
    (replace-in-list 
     (string->list input-string) from-char to-char)))