Skip to content

Instantly share code, notes, and snippets.

View MarkShulhin's full-sized avatar

Mark Shulhin MarkShulhin

View GitHub Profile
#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)))))))
#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
#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!))