Laba5_paradigmas

;1 присоединяет к писку аргументов функтор
; member = Если элемент в списке есть, то MEMBER возвращает хвост второго аргумента, начинающийся с этого элемента.
; progn вычисляет значение последнего аргумента, тут намберп
; maplist вычисляет хвост списка



(print (apply '+ '(3 5) ) )

(print (funcall 'cons '(a b) '(c) ) )

(print (mapl 'cons '(apply funcall) '(3 5) ) )

(print (funcall 'apply 'member '(a (a b)) ))

(print(progn (setq a 6) (numberp `(,a b)) ) )


;2

;(setq liss '(a b c d e f))
(setq liss '(1 2 3 4 5 6))
(setq lisf '(+ - * / -))


(defun a-apply (f x)
    (cond ((null f) nil)
        ( t (cons (apply (car f) (list (car x) (cadr x))) (a-apply (cdr f) (cdr x) ) ) )
    )
)

;(print ( a-apply lisf liss))

;3

(setq pr 'symbolp)
(setq ls '(a 2 f 2 8 h j j 0 s s))


;(print (funcall pr (car ls)))

(defun every_m3 (pr ls)
    (cond ((null ls) T)
        ( t ( and ( funcall pr (car ls)) (every_m3 pr (cdddr ls))))
    )
)

;(print ( every_m3 pr ls))

;4
(setq fn '-)
;(setq fn 'numberp)
(setq lis '((1 3 3) (3 4)))
;(setq lis '( 1 2 3 4 5))

(defun m-car (fn lis)
    (cond ((null lis) nil)
        ((atom (car lis)) (cons (funcall fn (car lis)) (m-car fn (cdr lis)) ) )
        ((listp (car lis)) (cons (apply fn (car lis)) (m-car fn (cdr lis)) ) )
    )
)

;(print ( m-car fn lis))