recursion - 查找由列表组成的方阵的对角线

Question

我目前正在尝试定义一个函数，它接受一个列表列表，模型以方矩阵形式列出并返回所述矩阵的对角线。

例如，输入 ((a b c) (d e f) (g h i)) 给出 (a e i)。

我对如何解决这个问题有一个模糊的想法(取最后一个列表的最后一个元素，然后是倒数第二个列表的倒数第二个元素等)，但我不确定如何去做在 Scheme 中对此进行编程。

如果有人能指出正确的方向，我将不胜感激。

谢谢。

Answer 1

^{(向Nethack粉丝致歉)}

当你从祭坛上退下来时，你会发现地板上有一张小纸片，你可以从中解读出以下文字:

0> Calling (DIAG ((A B C) (D E F) (G H I))) 
 1> Calling (DIAG ((E F) (H I))) 
  2> Calling (DIAG ((I))) 
   3> Calling (DIAG NIL) 
   <3 DIAG returned NIL
  <2 DIAG returned (I)
 <1 DIAG returned (E I)
<0 DIAG returned (A E I)

这看起来不错，但是当你开始大声朗读卷轴时，你闻到了附近垃圾的臭味。在变形魔杖的帮助下，你摧毁了被诅咒的物体。之前的文本消失，另一个文本出现:

0> Calling (DIAG ((A B C) (D E F) (G H I))) 
 1> Calling (DIAG% ((A B C) (D E F) (G H I)) 0) 
  2> Calling (DIAG% ((D E F) (G H I)) 1) 
   3> Calling (DIAG% ((G H I)) 2) 
    4> Calling (DIAG% NIL 3) 
    <4 DIAG% returned NIL
   <3 DIAG% returned (I)
  <2 DIAG% returned (E I)
 <1 DIAG% returned (A E I)
<0 DIAG returned (A E I)

一个明亮的领域围绕着你!