从列表中删除整数

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)