получить 7 не (7) из списка?

Вот мой код:

  (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

В чем проблема?

5
задан Matt Fenwick 28 February 2012 в 14:48
поделиться