计划， Racket 帮助。想要返回符合条件的数字

Question

代码如下:

(define make-simple-sv-num
  (lambda (delare)
    (let ((tal (random-from-to 100000 1000000)))
      (cond ((= (divisible? (sum-of-digits tal) delare) #t) tal)
            (else (make-simple-sv-num))))))

所以我的规范是生成一个随机的 6 位数字，它也可以被输入变量“delare”整除。

我对代码的思考过程是将“tal”绑定(bind)到随机数，然后在计算中使用它，如果它检查出来，它将返回“tal”中的数字。但是，如果它不满足条件，它将调用自己，我的想法是，当它这样做时，它会给“tal”一个新的随机数并继续这样做直到满足条件，从而给我想要的数字类型。

我收到这个错误，我不知道如何修复它

=: contract violation
  expected: number?
  given: #t
  argument position: 1st
  other arguments...:

Answer 1

我认为您的代码可以更简单，就像:

(define (make-simple-sv-num declare)
    (let ([tal (random-from-to 100000 1000000)])
       (if (divisible? (sum-of-digits tal) delare)
           tal
           (make-simple-sv-num declare))))