Poder del pensamiento positivo

Parabola de la esperanza

Nunca digas no puedo

Pensamiento Positivo

EJERCICIOS LISP

DESCRIPCION

CREAR UNA FUNCION  EN DONDE  DE COMO RESULTADO EL ULTIMO ELEMENTO DE UNA LISTA

SOLUCION

( defun ultimo (y) (if (cdr y) ( ultimo (cdr y) ) y ) ) 

DESCRIPCION

DEVUELVE EL PRIMER Y ULTIMO ELEMENTO DE UNA LISTA

SOLUCION

(defun ejer1 (lista) (append (list(car lista)) (ultimo lista) ) )

( defun ultimo (y) (if (cdr y) ( ultimo (cdr y) ) y ) )    

DESCRIPCION

SUMATORIA DE LOS ELEMENTOS DE UNA LISTA

SOLUCION

(DEFUN sumatoria (N)

(if (cdr n) (+ (car n)

 (sumatoria (cdr n)) )

  (car n)

   )   )

(sumatoria '(1 2 3 4 5 6 7 8 9)) 

Descripción
SUMA DE MATRICES
Solución

(defun sumaprimer (x y) (+ (car x) (car y))  )

(defun sumacol (x1 y1) (if (cdr x1)
               (cons(sumaprimer x1 y1) (sumacol (cdr x1)(cdr y1)) )
               (list(sumaprimer x1 y1))
                       )
)    


(defun sumamat (x y) (append (list(sumacol (car x) (car y)))
                               
                         

                           (if (cdr (cdr x)) (sumamat (cdr x) (cdr y))  
                       (list (sumacol (car (cdr x)) (car (cdr y))))
                           )                  
                     )
)

(sumamat '((1 3)(4 5)(3 5)) '((6 7)(8 9)(4 3)))

Descripción
Defina una función “nesimo” que dado un entero “n” y una lista “L” retorne una nueva lista eliminando el n-ésimo elemento de la lista.

Solución
$ (nesimo 3 '(1 -3 5 4 9))
(1 -3 4 9)
(defun nesimo (n lista)
             ( IF (NOT (NULl lista ))
                  (setq n (- n 1))
             )
            (IF (NOT (NULL lista ))
                 (if (eq n 0)
                      (append (cdr lista)
                      )
                      (append (list(car lista)) (nesimo n (cdr lista))
                      )
                 )
            )
)


(nesimo 2 '(2 3 4))

Descripción
Ingresar  el nombre del estudiante y un limite de notas en una lista y mostar si aprueba o no
Solución
(DEFUN sumatoria (N) (if (cdr n) (+ (car n) (sumatoria (cdr n)) )
                              (car n)
                  )
)

(defun promedio (l) (/ (sumatoria (car(cdr l))) (length (car(cdr l))))
)


(defun aprueba (l)( if (< (promedio (car l)) 7) 'Repr 'Aprb) )


(defun cargarlista (l)
              (list (caar l) (promedio (car l)) (aprueba l) )
)

(defun evalua (l)
               
      (append (list (cargarlista l))
              (if (cdr (cdr l))
                               (evalua (cdr l))  
                               (append(list (cargarlista (cdr l))))
              )
      )
)