Resolucion de Ejercicios de la Practica de Laboratorio 2 PDF

Preview

Summary

Resolución de Ejercicios de la Práctica de Laboratorio 2 Grupo 8 - 2014 - 1 Para los ejercicios se planteó la Lista siguiente: f '( 1 (2 (3 4)) 5 6 (7 (8 9))) Para la obtención de los ejercicios 1 y 2, se estableció las funciones siguientes: Código LISP Operación defun maxi(l num) (if(not(eq (ca...

Description

Resolución de Ejercicios de la Práctica de Laboratorio 2 Grupo 8 - 2014 - 1 Para los ejercicios se planteó la Lista siguiente: f '( 1 (2 (3 4)) 5 6 (7 (8 9))) Para la obtención de los ejercicios 1 y 2, se estableció las funciones siguientes: Código LISP defun maxi(l num) (if(not(eq (car l) nil)) (if(atom (car l) ) (if(> (car l) num) (progn (setq num (car l)) (maxi (cdr l) num)) (maxi (cdr l) num) ) (maxi (cdr l) num) ) num) defun mini(l num) (if(not(eq (car l) nil)) (if(atom (car l) ) (if(< (car l) num) (progn (setq num (car l)) (mini (cdr l) num)) (mini (cdr l) num) ) (mini (cdr l) num) ) num) defun suma(l) (cond ( (null l) 0) (t (+ (car l) (suma (cdr l))))) defun promedio(l)(/ (suma l) (length l)) defun hojas(l)(cond ((null l) ()) ((atom (car l)) (cons (car l) (hojas (cdr l)))) (t (hojas (cdr l))) ) defun subl(l)(cond ((null l) ()) ((listp (car l)) (cons (car l) (subl (cdr l)))) (t (subl (cdr l))) ) defun pares(l)(cond ((null l) ()) ((evenp (car l)) (cons (car l) (pares (cdr l)))) (t (pares (cdr l))) ) defun aplanar(l) (cond ((null l) ()) ((listp (car l)) (append (list (cons (caar l) (cadar l))) (aplanar (cdr l)))) (t (aplanar (cdr l)))) (defun aplana (lista) (cond ((null lista) NIL) ((atom (car lista)) (cons (car lista) (aplana cdr lista)))) (t (append (aplana (car lista)) (aplana (cdr lista)))))) setq f '( 1 (2 (3 4)) 5 6 (7 (8 9))) 



Operación "Maximo elemento de una lista"

"Minimo elemento de una lista"

"Suma de una lista de atomos" "Promedio de una lista de atomos" "Devuelve las hojas"

"Devuelve las sublistas"

"Elementos pares de una sublista"

"Aplanar las sublistas divididas"

"Aplanar las sublistas unidas"

Esta le i ie to de la Lista F

Ejercicio 1 – (6 (3 8) 1) – (Maxh (Lista de Promedio de Pares de las SubListas) Minh) defun main1 (l) (append (list (maxi (hojas l) -99)) (list (cons (promedio (pares (car (aplanar f)))) (list (promedio(pares(cadr (aplanar f))))))) (list (mini (hojas f) 99))) Ejercicio 2 – ((9 2) 6) – ((MaxSL MinSL) PromParesHojas) defun main2 (l) (append (list (list (maxi (aplana (subl l)) -99) (mini (aplana (subl l)) 99))) (list (maxi(hojas l) -99)))



Ejercicio 3 – ((19/3 14/3) 12) – ((PromImpSL PromParesSL) SumatoriaHojas) Código LISP setq f '(1 (2 (3 4)) 5 6 (7 (8 9))) defun obtenerhojas (l) (if (null l) nil ( if (atom (car l)) (cons (car l) (obtenerhojas (cdr l))) (obtenerhojas (cdr l)))) defun suma (l) (cond ((null l) 0) (t (+ (car l) (suma (cdr l))))) defun subl(l)(cond ((null l) ()) ((listp (car l)) (cons (car l) (subl (cdr l)))) (t (subl (cdr l)))) (defun aplana (lista) (cond ((null lista) NIL) ((atom (first lista)) (cons (first lista) (aplana (rest lista))))(t (append (aplana (first lista)) (aplana (rest lista)))))) defun impares(l)(cond ((null l) ()) ((oddp (car l)) (cons (car l) (impares (cdr l)))) (t (impares (cdr l)))) defun pares(l)(cond ((null l) ()) ((evenp (car l)) (cons (car l) (pares (cdr l)))) (t (pares (cdr l)))) defun prom (l) (/ (suma l) (length l)) defun principal(a)(list (list (prom (impares (aplana (subl a)))) (prom (pares (aplana (subl a))))) (suma (obtenerhojas a)))



Operación Establecer lista F Obtener hojas “u ar hojas O te er todas las su listas

Apla ar listas

O te er i pares de u a lista O te er pares de u a lista O te er pro edio de u a lista Fu ió pri ipal

Ejercicio 4 – (5 19/3) - (PromParesL PromImparesSL) Código LISP setq f '(1 (2 (3 4)) 5 6 (7 (8 9))) (defun aplana (lista) (cond ((null lista) NIL) ((atom (first lista)) (cons (first lista) (aplana (rest lista))))(t (append (aplana (first lista)) (aplana (rest lista)))))) defun impares(l)(cond ((null l) ()) ((oddp (car l)) (cons (car l) (impares (cdr l)))) (t (impares (cdr l)))) defun pares(l)(cond ((null l) ()) ((evenp (car l)) (cons (car l) (pares (cdr l)))) (t

Operación Esta le er la Lista Apla ar la lista

O te er i pares O te er pares

(pares (cdr l)))) defun prom (l) (/ (suma l) (length l)) defun suma (l) (cond ((null l) 0) (t (+ (car l) (suma (cdr l))))) defun subl(l)(cond ((null l) ()) ((listp (car l)) (cons (car l) (subl (cdr l)))) (t (subl (cdr l)))) defun principal (l) (list (prom (pares (aplana f))) (prom (impares (aplana (subl f)))))



O te er pro edio O te er su a O te er todas las su listas Fu ió pri ipal

Ejercicio 5 – (9 1) – (MaxL MinL) Código LISP setq f '(1 (2 (3 4)) 5 6 (7 (8 9))) (defun aplana (lista) (cond ((null lista) NIL) ((atom (first lista)) (cons (first lista) (aplana (rest lista))))(t (append (aplana (first lista)) (aplana (rest lista)))))) defun mayorhoja(l)(car (last (sort l #'...