Scheme lab 2

gistfile1.txt

#lang scheme
(define myexp '(((a.1) b (c.2) D) (((e.3) 4 (5.6))(f.7))
                ((9.8) 29 h ((10.I) (11.J) K 12))
                (((13.L) (d (14.m))) (15 (n.16)))
                ((Q (17.18) ((p.19) r) 88) 20)
                99 z))
(display "Количество елементов главного списка: ")
(length myexp)

;(car(cadaar(cdddr myexp))) = d
;(cdr(car(cddr(caar(cddddr myexp))))) = r
;(cadr(cddr(caar(cddddr myexp)))) = 88
(display "Новый список из е1, е2, е3 : ")
(cons (car(cadaar(cdddr myexp))) (cons (cdr(car(cddr(caar(cddddr myexp))))) (cons (cadr(cddr(caar(cddddr myexp)))) null)))


;разьеденить пару (1.2)
;(let ((x '(1 . 2)))
; (cons (car x) (cons (cdr x) null)))