在初學者方案中，我如何將一個變量表示爲一個字符串？

Question

我的問題是如何準備

代碼說明：（5個astericks 4，然後3然後2然後1）。到目前爲止，我有：

(define (triangle n) 
    (cond 
    [(zero? n) empty] 
    [else (cons n (triangle (sub1 n)))])) 

但這隻給我(list 5 4 3 2 1)。請注意，這隻使用方案初學者名單和縮寫的基礎。謝謝！

Answer 1

它總是在簡單，更短的子部件拆分複雜問題的好方法。在這種情況下，我們可以簡化先寫解決方案，子問題的通用解決方案，如：

1. 首先，建立創建的字符串，其中字符串是"*****"或"****"或列表的過程...或"*"
2. 其次，寫給出一個字符串和一個數repeat助手程序，重複的字符串，很多時候 - 例如：(repeat "*" 3)將返回"***"

人們很容易看到的第一個子問題如何表達在t第二個。因爲這看起來像一個家庭作業，你不應該在這裏要求完整的解決方案。這將是更爲有用到自己達到了答案，這裏的總體思路，填充了空白：

(define (triangle n) 
    (cond [<???> <???>]     ; if n is zero return the empty list: '() 
     [else       ; otherwise 
     (cons <???>     ; cons n repetitions of * (using `repeat`) 
       (triangle <???>))])) ; and advance the recursion 

(define (repeat str n) 
    (cond [<???> <???>]     ; if n is zero return the empty string: "" 
     [else       ; otherwise 
     (string-append <???>   ; append the given string 
      (repeat <???> <???>))])) ; and advance the recursion 

如果你在它仔細看，這兩個程序共享完全相同的結構。在基本情況下返回的值（空列表和空字符串）以及用於將部分答案（cons和string-append）粘合在一起的過程發生了什麼變化。

Answer 2

如果您只是在尋找如何將數字轉換爲字符串，您可以使用(number->string x)。

但是，由於您希望將數字表示爲星號，所以最好將它們保留爲數字，直到您構建一串星號。在這種情況下，你可能想的方法，如：

(define (num-to-asterisks x) 
     (make-string x #\*)) 

Answer 3

嘗試這種情況：

(define (triangle n) 
    (let building ((i 0) (r '())) 
    (if (= i n) 
     r 
     (building (+ i 1) 
        (cons (string-append "*" (if (null? r) "" (car r))) 
         r))))) 

這是很好的尾遞歸;通過將「*」添加到結果列表的第一個元素來建立結果列表。