Racket 如何将球拍中的数字列表转换为三位数的数字列表?

Racket 如何将球拍中的数字列表转换为三位数的数字列表?,racket,Racket,例如,“(1234456789)将转换为“(123456789)。我试图找到一种递归的方法,但失败了。例如 (define (f lst) (if (null? lst) null (cons (+ (* 100 (car lst)) (* 10 (cadr lst)) (caddr lst)) (f (cdddr lst)))))

例如,“(1234456789)将转换为“(123456789)。我试图找到一种递归的方法,但失败了。

例如

(define (f lst)
  (if (null? lst)
      null
      (cons (+ (* 100 (car  lst))
               (*  10 (cadr lst))
               (caddr lst))
            (f (cdddr lst)))))