如何只消费 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-values 和let-values。

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

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

来源：R7RS report

Answer 2

只需使用let-values:

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

上面会将两个结果提取到单独的变量中，你可以选择你需要的。