scheme - 关于一个小程序

Question

考虑以下程序。它应该接受一个字符串列表，并返回一个字符串，其字符是每个字符串的第一个字符。例如，(downward (cons "caa" (cons "abbb" empty))应该返回 "ca" .为什么我总是收到错误消息？

(define (downward l)
  (cond
    [(empty? l) ""]
    [else (substring (first l) 0 1
            (downward (rest l)))]))

Answer 1

您正确地迭代输入，但忘记将输出的每个部分“粘在一起”。在这种情况下，string-append将允许您将答案的所有元素放在一起:

(define (downward l)
  (cond
    [(empty? l) ""]
    [else (string-append (substring (first l) 0 1)
                         (downward (rest l)))]))

这是它的工作原理:

(downward '("caa" "abbb"))
=> "ca"

转念一想，这个问题有点模棱两可。你想要一个字符串作为输出吗？或列表？如果它是一个列表，您只需更改基本情况和“粘贴”程序 - 使用 cons用于构建列表，与 string-append 相同对于构建字符串很有用:

(define (downward l)
  (cond
    [(empty? l) empty]
    [else (cons (substring (first l) 0 1)
                (downward (rest l)))]))


(downward '("caa" "abbb"))
=> '("c" "a")