ghvgjvj

Extrae el Primer Átomo usando car – quote.
Ejercicio 1:
CL-USER 1 > (car(quote(Ejercicio de Prueba)))
EJERCICIO

Ejercicio 2:
CL-USER 2 > (car(quote((Ejercicio de Prueba))))
EJERCICIO DEPRUEBA
Indica si el argumento es un átomo: “T”, u otro caso: “NIL”.
Ejercicio 3
CL-USER 3 > (atom(quote Hola))
T

Ejercicio 4
CL-USER 4 > (atom(quote Hola Mundo))
NIL
Extrae el resto de la listadespués de borrar el primer término.
Ejercicio 5
CL-USER 5 > (cdr’(H O L A))
(O L A)

Ejercicio 6
CL-USER 6 > (cdr’((Hola Mundo) H O L A))
(H O L A)
Une todos los átomos.
Ejercicio 7
CL-USER7 > (cons ‘H (cons ‘O (cons ‘L (cons ‘A ‘()))))
(H O L A)

Ejercicio 8
CL-USER 8 > (cons ‘Hola ‘(M U N DO))
(HOLA M U N D O)
Extrae el primer átomo usando first.
Ejercicio 9
CL-USER 9 >(first ‘(Hola Hello Konichiwa))
HOLA

Ejercicio 10
CL-USER 10 > (first ‘((H O L A) M U N D O))
(H O L A)
Extrae el resto de la lista después de borrar el primer átomo usando rest.
Ejercicio 11CL-USER 11 > (rest ‘(H O L A))
(O L A)

Ejercicio 12
CL-USER 12 > (rest ‘((H O L A) Hello World))
(HELLO WORLD)
Resuelve la operación planteada:
Ejercicio 13
CL-USER 13 > (- (print(/ 4 2))(print(* 5 0)))
2
0
2
Halla el promedio aritmético de los siguientes números: 6, 8 y 10
Ejercicio 14
CL-USER 14 > (/ (print(+ 6 8 10)) (print 3))
24
3
8
Halla factorial del número: 4
Ejercicio 15CL-USER 15 > (print(* 1 2 3 4))
24
24
Halla la cantidad de números de la progresión aritmética: 1, 3, 5,…, 49.
Ejercicio 16
CL-USER 16 > (/ (print(+ 49 1)) (print 2))
50
2
25
Halla elúltimo número de la progresión aritmética: 1, 3, 5… Sabiendo que hay 25 números.
Ejercicio 17
CL-USER 17 > (+ (* (print(- 25 1)) (print 2)) (print 1))
24
2
1
49
Halla la Suma de los “n” números de lasiguiente progresión aritmética: 1, 3, 5,…, 49.
Ejercicio 18
CL-USER 18 > (/ (*(print(+ 1 49)) (print 24)) (print 2))
50
24
2
600
Resuelve la siguiente operación asignando valor a las...