在嵌套列表上运行

Question

我有一个任意长度的嵌套列表结构，深度为三。第一层的长度与第二层相同，但是第三层的长度在整个事物中保证具有统一的长度。所述结构的一个例子是'(((A B) (C D)) ((E F) (G H)) ((I J)))。

我想写一个函数，将应用跨越不同层次的结构（对不起，我真的不知道该怎么说）。横跨示例结构中的功能映射的一个例子是在这个顺序：

f A C = AC, f B D = BD, f E G = EG, f F H = FH, f I = I, f J = J，

得到

'((AC BD) (EG FH) (I J))

但想象列表的第三级包含有更多的元件（比如说，在最终版本中约为32,000）。

本质上，我试图做的将在Haskell中表达为​​。我知道我需要类似(map car (map flatten (car ...)))来获得第一部分的第一部分，但在此之后，我真的迷失在这里的逻辑。如果这是一个非常复杂，解释不清的问题，我很抱歉。我真的很迷茫。

我该如何去应用这种方式在整个结构上的功能？

Answer 1

(define l '(((A B) 
    (C D)) 
    ((E F) 
    (G H)) 
    ((I J))) 
) 
(define zip (lambda lists (apply map list lists))) 
(define (f values) (list 'f values)) 

(map (lambda (v) (map (lambda values (apply f values)) (apply zip v))) l) 

打印

(((f (a c)) (f (b d))) ((f (e g)) (f (f h))) ((f (i)) (f (j)))) 

Answer 2

这将是更容易定义f为发生在值列表的功能。如果没有，那么最后的表格很容易添加apply，但它并没有让它变得更好。 （使用休止参数意味着语言无论如何将不得不创建这些列表。）

#lang racket 
(define data '(((A B) (C D)) ((E F) (G H)) ((I J)))) 
(define (f xs) (string->symbol (string-append* (map symbol->string xs)))) 
(map (λ (pairs) 
     (list (f (map first pairs)) 
      (f (map second pairs)))) 
    data) 
(map (λ (pairs) (map f (apply map list pairs))) 
    data) 
(for/list ([pairs (in-list data)]) 
    (for/list ([xs (in-list (apply map list pairs))]) 
    (f xs)))