racket - 一个数字的递归，如果它在 Racket 中按升序排列而不使用列表

Question

本程序禁止使用任何类型的列表。我尝试了以下方法，但这很疯狂。

(define (order2 number2)
  (cond ((remainder number2 10) 1)
        (else (order3 number3))))

(define (order3 number3)
  (cond ((< number3 10) number3)
        (else
         (define (order4 number4)
           (cond (< remainder (quotient number4 10)))
           (else (order4 (quotient number4)))))))
))

标签： racket