http://wiki.foros-fiuba.com.ar/ 2026-04-05T19:59:50-03:00 http://wiki.foros-fiuba.com.ar/ http://wiki.foros-fiuba.com.ar/lib/tpl/default/images/favicon.ico text/html 2007-08-01T13:03:10-03:00 http://wiki.foros-fiuba.com.ar/doku.php?id=materias:75:14:adicionales_lisp&rev=1185984190&do=diff www.foros-fiuba.com.ar Ejercicio 1 ( ) , ó : * ú . * : ( ( ) ( ) ( ))---> 3 * * í * . : ( ( ) ( ) ( ) )---> ;EJERCICIO 1.a (MAYOR_T '( ( T NIL T T NIL ) ( NIL NIL NIL T NIL) ( T T T NIL T ))) (DEFUN MAYOR_T (M) (POS(SEL_MAYOR(ALFA 'CONTAR_T M))(ALFA 'CONTAR_T M)) ) funcion que cuenta la cantidad de T que hay e una lista (DEFUN CONTAR_T (L) (IF (NULL (CDR L)) (COND ((CAR L) 1) (T 0) … text/html 2007-08-01T13:05:24-03:00 http://wiki.foros-fiuba.com.ar/doku.php?id=materias:75:14:guia_lisp&rev=1185984324&do=diff www.foros-fiuba.com.ar Ejercicio 1 ó ó (DEFUN FNC (X) (COND ((ATOM X)X) (T(FNC (CAR(CDR X))))) ) : * ( ' ) * ( ' ( ) ) * ( ' ( ( ) ( ) ) ) * ( ' ( ) ) * ( ' ( ( ) ) ) * ( ' ( ( ) ) ) * ( ' ) * ( ) text/html 2013-04-23T23:46:59-03:00 http://wiki.foros-fiuba.com.ar/doku.php?id=materias:75:14:parcial_20070508_1&rev=1366771619&do=diff á: : 1º - 1º 2007 í: 08/05/2007 Enunciado Funcional ( , ): < Ente < <12 21 35> <41 57 86> <17 18 25> <...> > > ó ú ú ó. . : < 84 < <11 22 23> <41 15 16> <17 18 25> <15 30 35> > > text/html 2009-06-21T19:53:41-03:00 http://wiki.foros-fiuba.com.ar/doku.php?id=materias:75:14:parcial_20071906_1&rev=1245624821&do=diff á: : 1º - 1º 2007 í: 19/06/2007 Enunciado Lambda , ó ( ) ((&w.&x. w) ((&w.x w) t)) ((&w.x) t) LISP ñ, ó , á , (setq n '((a b c d) (e f g h) (i j k l) (m n o p))) (setq m '((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16)))