Scheme 从列表中删除字符串和从列表中删除数字

给定列表p1-p4，我想编写一个名为get page number的函数，从列表中提取数字。例如：

（获取页码p2）

将返回79

然后我需要编写一个名为get words的函数，该函数将去掉数字并返回字符串。例如：

（获取单词p1）

将返回“狗”咀嚼“地毯”

尝试以下操作：

(define p1 '(4 "the" "dog" "chewed" "the" "rug"))

(define p2 '(79 "on" "the" "rug" "slept" "the" "dog"))

(define p3 '(32 "the" "rug" "rats" "slept" "on"))

(define p4 '(42 "the" "meaning" "of" "life"))

---

不需要创建函数<代码>汽车和

cdr

就可以了

(define get-page-number car)

---

数字始终是列表的第一个元素，还是需要在元素中搜索数字？

(define get-page-number car)
(define get-words cdr)

(get-page-number p3) ; ==> 32
(get-words p3)       ; ==> ("the" "rug" "rats" "slept" "on")