scheme - 把 7 不是 (7) 排除在列表之外？

Question

这是我的代码:

  (define step1_list1 '(1 3 (5 7) 9))

  (car (cdr (cdr (step1_list1))))


   (define step1_list2 '((7)))

   (car (step1_list2))


   (define step1_list3 '(1 (2 (3 (4 (5 (6 7)))))))

   (car (cdr (cdr (cdr (cdr (cdr step1_list3))))))

  ))

运行此代码会导致错误:

(1 3 (5 7) 9) is not applicable

问题是什么？

Answer 1

从小事做起。

(define mylist '(1 2 3))

(display mylist)

(display (car mylist))

(display (car (mylist)))

依次运行每一个，看看你在每一步得到了什么。一旦你理解了为什么你会得到你所做的输出，那么你应该能够修复你的问题中的代码。