在列表球拍中計數數字

Question

我有疑問，我使用的是球拍，我想列出一個列表的數字，但我不能。我試着用長，但我想，因爲

（countDigits「（4 5 6 78））> 5

的答案是5這是行不通的，但我不知道怎麼樣，我有一個數字計數的代碼，但我不知道如何在列表中執行。 ¿我該怎麼做？

Answer 1

這裏是一個可能的解決方案：

(define (countDigits lst) 
    (apply + 
     (map (compose string-length number->string) 
       lst))) 

說明：

• 對於列表中，我們把它轉換爲字符串
• 然後，我們獲得每個字符串的長度每一個數字 - 那會告訴我們的位數
• 最後我們把所有長度加在一起

例如：

(countDigits '(4 5 6 78)) 
=> 5 

Answer 2

一個更簡單的例子，不會讓你的教授看兩次:)

定期遞歸：

(define (countDigits list-of-digits) 
    (cond [(empty? list-of-digits) 0] 
     [else (+ 1 (countDigits (rest list-of-digits)))])) 

尾遞歸：

(define (countDigits list-of-digits sum) 
    (cond [(empty? list-of-digits) sum] 
     [else (countDigits (rest list-of-digits) (+ 1 sum))]))