scheme - リストから文字列を削除し、リストから数字を削除する

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-words という関数を作成する必要があります。例：

(get-words p1)「the」「dog」「chew」「the」「rug」を返す

Answer 1

関数を作成する必要はありません。carそしてcdrします。

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

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

Answer 2

これを試して：

(define get-page-number car)