使用嵌套列表（未知程度）（球拍）

Question

这是我第一次发帖，所以如果我搞砸了，请告诉我：）

这是我无法导入或使用“用于函数”的作业。所以我有一个嵌套列表，但是我不知道它嵌套的程度，所以可能是这样的：

'(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
or
'((#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>))
or
'(((#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>))
((#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>))
((#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>))
((#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)
(#<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt> #<procedure:curried:tt>)))
or
4 times bigger then that

注意：尽管不一定非要是4倍

然后我必须对每个函数应用一个参数，不带更改列表中的位置，因此上述函数可能是：]]

'(1 2 3 4)
and
'((1 2 3 4)
(1 2 3 4)
(2 3 4 5)
(9 8 2 1))
and
'(((1 2 3 4)
(1 2 3 4)
(2 3 4 5)
(9 8 2 1))
((1 2 3 4)
(1 2 3 4)
(2 3 4 5)
(9 8 2 1))
((1 2 3 4)
(1 2 3 4)
(2 3 4 5)
(9 8 2 1))
((1 2 3 4)
(1 2 3 4)
(2 3 4 5)
(9 8 2 1)))
and so on
我真的很困惑如何在未知程度

部分解决此问题。以已知的程度进行求解非常简单，您只需在car和cdr中循环使用一系列功能即可。老实说，我不知道如何从unknown degree部分开始，因此对您有所帮助！

这是我第一次发布，因此，如果我搞砸了，请告诉我：)这是我无法导入或使用“用于函数”的作业。所以我有一个嵌套列表，但我不知道它的程度...

Answer 1

这基本上就像遍历s表达式。您可以像s表达式一样对数据进行建模：