方案 - 从参数顺序运行两个过程？答案

【问题标题】：Scheme - run two procedures from arguments sequentially?方案 - 从参数顺序运行两个过程？
【发布时间】：2012-10-05 22:30:53
【问题描述】：

我正在尝试创建一个将两个函数作为参数并同时执行它们的函数。

我尝试使用cond，但它只执行action1。

(define seq-action
  (lambda (action1 action2)
    (cond
     ((procedure? action1) (action1))
     ((procedure? action2) (action2)))))

我觉得一个接一个地跑应该不会太难。它们不需要同时运行。

我只是简单地尝试了 (action1) (action2) 并排，但它只返回 action2。这是我为action1 和action2 定义的：

(define ax 
  (lambda ()
    (+ 1 2)))
(define bx 
  (lambda ()
    (+ 5 2)))

【问题讨论】：

【解决方案1】：

一个接一个地执行就这么简单：

(define seq-action
  (lambda (action1 action2)
    (action1)
    (action2)))

但是，上面只会返回最后一个过程的结果。如果您需要两个结果，则返回一个包含值的列表，如下所示：

(define seq-action
  (lambda (action1 action2)
    (list (action1) (action2))))

或者，您可以使用values 过程同时返回多个值：

(define seq-action
  (lambda (action1 action2)
    (values (action1) (action2))))

要在调用最后一个版本后检索两个值，您需要使用let-values。

【讨论】：

【解决方案2】：

Scheme 函数将返回它评估的最后一件事。如果您需要两个退货，您可以尝试将它们打包到一个列表中并退货。

【讨论】：

【解决方案3】：

如果您想在调用之前检查 procedure? 的参数，您可以使用以下解决方案。

(define seq-action
  (lambda (action1 action2)
    (and (procedure? action1) (action1))
    (and (procedure? action2) (action2))))

【讨论】：