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!))

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 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)))))))