Recursion 用列表求方阵的对角线

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

例如，输入一个b c d e f g h i给出一个e i

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

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

谢谢。

向粉丝致歉

当你从祭坛后退一步时，你发现地板上有一张小纸片，你可以从中解读以下文字：

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)

一片光明的田野围绕着你

向粉丝道歉

当你从祭坛后退一步时，你发现地板上有一张小纸片，你可以从中解读以下文字：

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)

---

一片光明的田野围绕着你

这是我见过的家庭作业问题的最好答案。这是我见过的家庭作业问题的最好答案。