scheme - 动态找出功能有多少输入， Racket

Question

有没有一种方法可以在运行时找出一个函数有多少个输入(参数，参数)？

说，我想:

(define (my-function unknown-function)
  ...
  (number-of-necessary-arguments unknown-function)
  ...)

Answer 1

您可以使用procedure-arity。

(procedure-arity expt)                     ; => 2

请注意，当将 procedure-arity与可变参数函数或 case-lambda等结合使用时，结果会更加复杂:

(procedure-arity apply)                    ; => (arity-at-least 2)
(procedure-arity (case-lambda
                  ((x) x)
                  ((x y z) z)
                  ((a b c d e f . g) g)))  ; => `(1 3 ,(arity-at-least 6))