scheme - 如何只消费 Scheme 中的第一个返回值？

Question

给定一个返回多个值的 Scheme 函数，例如：

(exact-integer-sqrt 5) ⇒ 2 1

如何只使用第一个返回值，而忽略其他值？

Answer 1

您可以使用call-with-values内部宏：

(define-syntax first-val
  (syntax-rules ()
    ((first-val fn)
     (car (call-with-values (lambda () fn) list)))))

(first-val (values 1 2 3 4))
(first-val (exact-integer-sqrt 5))

如果您知道返回值的数量，还有define-valuesand 。let-values

(define-values (x y) (exact-integer-sqrt 5)) ;global

(let-values ([(x y z) (values 1 2 3)]) ;local
    x)

资料来源：R7RS 报告

Answer 2

只需使用let-values：

(let-values (((root rem) (exact-integer-sqrt 5)))
  root)

以上将在单独的变量中提取两个结果，您可以选择需要的结果。