ПП
Size: a a a
ПП
CC
CC
M
ПП
CC
CC
ПП
CC
(setf expression (list '* (list 'sin 1.1) (list 'cos 2.03)) )
-> (* (SIN 1.1) (COS 2.03)) ; Lisp returns and prints the result
(third expression) ; the third element of the expression
-> (COS 2.03)
CC
CC
CC
(setf (first (third expression)) 'SIN)
; The expression is now (* (SIN 1.1) (SIN 2.03)).
(eval expression)
-> 0.7988834
CC
M
CC
CC
CC
CC
CC
(setf (first (third expression)) 'SIN)
; The expression is now (* (SIN 1.1) (SIN 2.03)).
(eval expression)
-> 0.7988834
M