更改字符串中的某些字母

Question

编辑：

(define leet-helper
  (lambda (string)
    (cond
      [(null? (string->list string)) ""]
      [(equal? (car string)#\e)
       (cons 3 (leet-speak (cdr string)))]
      [(equal?  (car string) #\s)
       (cons 5 (leet-speak (cdr string)))]
      [(equal? (car string) #\o)
       (cons 0 (leet-speak (cdr string)))]
      [else string])))

(define leet-speak
  (lambda (string)
    (list->string (string->list (leet-speak string)))))

我正在解决一个问题，它接受一个字符串并返回相同的字符串，其中所有 e 都变成 3，所有 s 都变成 5，所有 o 都变成 0。我发布了到目前为止我创建的内容，但是当我尝试测试它时，我不断收到错误，所以我知道我没有做正确的事情。另外..此代码有 3 个独立的条件，但如果给定的字符串是“eso”，我希望更改所有 3 个字符，而不仅仅是“e”。我不确定如何做到这一点，或者我的递归是否会自行解决这个问题[？]。任何指示将不胜感激！

(define leet-speak
  (lambda (string)
    (cond
      [(null? (string->list string)) ""]
      [(equal? (car (string->list string)) 'e) 
       (list->string (cons 3 (leet-speak (cdr (string->list string)))))]
      [(equal? (string->list (car string)) 's)
       (list->string (cons 5 (leet-speak (cdr (string->list string)))))]
      [(equal? (string->list (car string)) 'o)
       (list->string (cons 0 (leet-speak (cdr (string->list string)))))])))

Answer 1

现在假设我们使用字符串“test”测试您的程序（通过手动单步执行）。我们看到的第一个错误是您没有 else 案例。其次，您会注意到，当您将 (car (string->list string)) 与 'e 进行比较时，您总是会得到 false，因为当字符串被分解时，它是分解为字符 (#\e) 而不是符号。

我建议，当您测试代码时，记下不断出现的错误（什么样的错误？您在问题中没有提及它们；方案通常会提供非常丰富的错误消息）并尝试修复每个错误其中。例如，如果您得到

string->list : expects argument of type <string>; given myinput

，那么您就知道您提供的 string->list 的 myinput 类型有问题。此类错误在您的代码中多次出现。当我遇到递归输入类型问题时，我喜欢使用的一种方法是使用辅助函数/包装函数（提示）。

此外，测试递归程序的一个好方法是手动运行它们（例如，使用字符串“test”，如开头所述），然后查看卡在哪里并相应地修复程序。

我希望这将帮助您找到正确的方向，如果您需要更多指导，请告诉我。