В racket, как заменить слово в строке, используя только функцию string-> list или list-> string?

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)))