计划如何返回多个值？

Question

我注意到几乎所有的方案函数都只能返回一个列表作为输出。

在下面，我想返回邻居的所有相邻节点的多个值。

(define (neighbors l w) 
    (if (and (= 1 l) (= 1 w)) 
    (list (and (l (+ 1 w))) (and (+ 1 l) w)))) ; how to output 2 or more values? 

在这种情况下我第一测试，如果该节点是在拐角处，如果是的话，返回的坐标，其中（L和W + 1）的2个值，（L + 1和w）基本上，如果我（1,1）返回我（1,2）和（2,1）

当节点在边缘附近只有1个邻居时，同样适用，在这种情况下，我将有3个值。

当附近没有边时，我将有4个返回值。

我试图使用cons, append, list, display, write他们都没有似乎与额外的价值。我需要这个作为this question的子功能。我应该如何实现它，所以我可以传递返回值并递归地使用它返回所有相邻节点？

编辑：我找到了答案：使用关键字“values”返回多个值。例如：

(define (store l w) 
    (values (write l) 
      (write w) 
      (newline) 
      (list (+ 1 w) l) 
      (list w (+ 1 l)))) 

Answer 1

您可以返回一对值的利弊细胞：

(define (foo) 
    (cons 'a 5)) 

(let* ((r (foo)) 
     (x (car r)) 
     (y (cdr r))) 
    (display x) (display y) (newline)) 

可以概括这个在列表中返回多个值了。

Answer 2

值，延续传递风格，并列出至少三种方式返回多个值：

(import (rnrs)) 


; let-values + values 
(define (foo1) 
    (values 1 2 3)) 

(let-values (((a b c) (foo1))) 
    (display (list a b c)) 
    (newline)) 

; cps 
(define (foo2 k) 
    (k 1 2 3)) 

(foo2 (lambda (a b c) 
     (display (list a b c)) 
     (newline))) 

; list 
(define (foo3) 
    (list 1 2 3)) 
(let ((result (foo3))) 
    (display result) 
    (newline)) 

Answer 3

的狡诈实施方案的有receive语法，它说比values“方便多了” 。我还没有使用它，但是，但是这可能是有用的：

http://www.gnu.org/software/guile/manual/html_node/Multiple-Values.html