Ошибка при сборке в функции замены строки?

Question

Я пишу функцию-заменитель, которая потребляет строку, символ цели и символ замены . Функция создает новую строку, которая идентична потребляемой строке со всеми вхождениями целевого символа (если таковая имеется) заменена символом замены . Например, (string-replace "word" #\o #\y) ⇒ "wyrd"

Примечание: я cannnot использовать любые встроенные в другие строковые функции, чем string->list и list->string

Мой код выглядит

(define(list-replace input-list from-char to-char) 
    (string-replace input-list from-char to-char)) 

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

Для проверки я вхожу (string-replace "word" #\o #\y) Я получаю error string->list: expects a string, given (cons #\w (cons #\o (cons #\r (cons #\d empty))))

Может кто-нибудь помочь мне в этом коде, чтобы заставить его работать?

Answer 1

Также можно использовать 'for/list' для создания измененного списка (из строки ввода, преобразованной в список). Измененный список затем может быть преобразован в модифицированную строку:

(define (string-replace input-string from-char to-char) 
    (list->string 
    (for/list ((item (string->list input-string))) 
    (if (equal? item from-char) 
     to-char 
     item)))) 

(string-replace "word" #\o #\y) 
"wyrd"