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 and 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)

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

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

How to consume only the first returned value in Scheme?

scheme

multiple-value

r7rs