MarkShulhin

#lang scheme
(define test (lambda (x1 x2 x3) 
(+(/(+(sin(abs(expt x3 2))) 1)(expt x2 4))
(-(+(cos(expt x3 3))(expt 3 (exp (- x1 1))))
(/(sqrt(+(sin(expt x2 2)) x2))(cos (expt x1 2)))))))

MarkShulhin

#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

MarkShulhin

#lang scheme

(define (reverse1 l)
  (if (null? l)
     null
     (append (reverse1 (cdr l)) (list (car l)))))


(define (DFM atom list rezlist)
  (cond ((or (equal? atom '())(equal? list '())) '(wrong input!))