在某个列表的前 b 个碱基中找到第一个回文数

Question

找到大于start 的第一个数字，这是2, 3, 4, 5, 6, 7, 8, 9, 10 列表中最少b 碱基的回文数。

我有一个函数可以转换以 b 为底的数字列表中的数字，以及一个检查列表是否为回文的函数。我不明白为什么我的“x”总是 0。

(define (num->base n b)
  (if (= n 0) 
      '() 
      (append 
         (num->base (quotient n b) b) 
         (list (modulo n b)))))

(define (rev L)
  (if (null? L) '() (append (rev (cdr L)) (list (car L)))))

(define (palindrome? L)
  (equal? L (rev L)))

(define (first-b-pal start b)
  (define x 0)
  (for ([i '(2 3 4 5 6 7 8 9 10)])
    (if (equal? (palindrome? (num->base start i)) #t)
        (+ x 1)
        (+ x 0)
    )
  )
  (display start)
  (display "\n")
  (display x)
  (display "\n")
  (if (> x (+ b 1))
        start
        (first-b-pal (+ start 1) b)
    )
  )

我的想法是，检查有多少个碱基开始回文，如果大于 b 则返回数字，否则使用 start + 1 调用函数，我不明白为什么 x 永远不会递增..

Answer 1

它保持0，因为您从不更新绑定。您只使用值 0 作为参数之一。

您使用set! 更新绑定，例如。

(set! x (+ x 1))

但这不是惯用的方式。这是一个例子。想象一下，您想对列表的所有元素求和：

(define (sum lst)
  (define (helper acc lst)
    (if (null? lst)
        acc
        (helper (+ acc (car lst))
                (cdr lst))))
  (helper 0 lst))

(sum '(1 2 3)) ; ==> 6

正如您所见，每次迭代都会更新 acc 和 lst 绑定，但虽然它的工作方式相似，但没有发生任何变化。