Dans une raquette, comment remplacer un mot dans une chaîne à l'aide de la fonction string-> list ou list-> string uniquement?

Question

Donc, je pratiquais la langue de débutant raquette quand je suis arrivé à cette question. Ecrivez une fonction str-replace qui consomme une chaîne, un caractère cible et un caractère de remplacement . La fonction produit une nouvelle chaîne, identique à la chaîne consommée, toutes les occurrences du caractère cible (le cas échéant) étant remplacées par le caractère de remplacement. Par exemple, (string-replace "word" #\o #\y) ⇒ "wyrd".

Note: Je ne peux utiliser aucune fonction de chaîne intégrée autre que string->list et list->string.

Alors j'ai commencé avec le code maintenant je suis coincé, comment puis-je utiliser la fonction enveloppe pour ce code jusqu'à maintenant, je n'ai que cette

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

Définition d'une fonction de conversion qui fonctionne sur les listes:

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

^{(Vous devez remplir le ... blanc)}

et appeler les uns des autres:

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