Удаление строк из списков и удаление номеров из списков

Question

(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")) 

Данные списки p1-p4 Я хочу написать функцию с именем get-page-number, которая вытащила бы номер из списка. Пример:

(get-page-number p2) вернется 79

Тогда мне нужно написать функцию под названием Get-слова, которые бы избавиться от числа и возвращают строку. Пример:

(get-words p1) вернется "в", "собака", "жевал" "The" "ковер"

Answer 1

Попробуйте это:

(define get-page-number car) 

Answer 2

Нет необходимости создавать функции. car и cdr сделаю.

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

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