從列表中刪除整數

我有一個奇怪的問題，幾個小時不能在Scheme中實現。比方說，我們有：從列表中刪除整數

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

我想將它轉化爲

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

任何幫助將不勝感激。

2013-12-23 NoSense

請注意，「問題要求代碼必須表現出對問題的理解最小正在解決。**包括嘗試的解決方案，爲什麼他們沒有工作，和預期結果**「感謝您展示預期結果，但在未來，如果您花費了」幾個小時「，請至少展示當時的一些嘗試。 –

您也可以嘗試

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

2013-12-23 19:11:24 uselpa

謝謝，這比我的解決方案更清晰。 – NoSense

不客氣;-) – uselpa

回答