關於一個小程序

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