list - 从列表中删除整数

我有一个奇怪的问题，几个小时不能在计划中实现。
假设我们有：

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

我想把它变成

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

任何帮助都将不胜感激。

最佳答案

你也可以试试

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