从列表中删除整数

Question

我有一个奇怪的问题，即几个小时无法在Scheme中实现。 假设我们有：

(define x '( (Orlando (NY 3))
             (Chicago (Montana 5) (Orlando 8))
             ...and so on ...
           )

我想将其转换为

'( (Orlando NY)
   (Chicago Montana Orlando)
    ...and so on ...
 )

非常感谢任何帮助。

Answer 1

您也可以尝试

(map 
 (lambda (x) (cons (car x) (map car (cdr x)))) 
 x)