Ir al contenido principal

Funciones Lisp

Mis primeras funciones en Lisp, ademas de algunos libros muy buenos para iniciarse en el mundo del lenguaje de inteligencia artificial Lisp
;Hello World
(defun saludo()
(format t "Ingresa tu nombre : ")
(setq Nombre (read))
(format t "Hello World ~A." Nombre)
'OK

)

;funcion que devuelve el valor a nivel de Byte
(defun nibble (NIB)
(IF (numberp NIB) 
(COND
((= NIB 0) '0000 )  
((= NIB 1) '0001 )
((= NIB 2) '0010 )
((= NIB 3) '0011 )
((= NIB 4) '0100 )
((= NIB 5) '0101 )
((= NIB 6) '0110 )
((= NIB 7) '0111 )
((= NIB 8) '1000 )
((= NIB 9) '1001 )
(T 'NUMERO_ES_MAS_DE_UN_DIGITO )
)

(COND 
((EQUAL NIB 'A) '1010 )
((EQUAL NIB 'B) '1011 )
((EQUAL NIB 'C) '1100 )
((EQUAL NIB 'D) '1101 )
((EQUAL NIB 'E) '1110 )
((EQUAL NIB 'F) '1111 )
(T 'DIGITO_DESCONOCIDO )
)
) 
)

;mostrar los primeros n numeros al cuadrado
(defun serie-N-cuad(Lim)
(DO
(
(i 1 (1+ i))
)
((= i Lim) (format t "~A.~&" (* i i)) 'OK )
(format t "~A, " (* i i))
)
)

Comentarios

Entradas populares de este blog

JPL - Conectar Java con Prolog

Se presentara una manera sencilla de conectar una aplicacion Java a Prolog, el cual ejectara un  proceso inteligente. Para ello se usara el IDE Eclipse y SWI Prolog y la conexion se realizara a travez de la interface JPL( Java Prolog Library ). Seguir los siguientes pasos: Instalar  SWI Prolog ,  Eclipse  , JDK 1.6 Añadir como variable de sistema en el Path :  C:\Archivos de programa\Java\jdk1.6.0_10\bin; C:\Archivos de programa\Java\jdk1.6.0_10\lib\tools.jar; C:\Archivos de programa\Java\jdk1.6.0_10\jre\lib\rt.jar; C:\Archivos de programa\pl\bin; C:\Archivos de programa\pl\lib\jpl.jar; Crear padre.pl en  SWI Prolog Crear TestJavaProlog en  Eclipse, antes debes haber creado un projecto java y añadir jpl.jar(se encuentra en el  directorio donde se instalo  SWI Prolog ) como libreria. Escribir el codigo Java que invocara a Padre.pl package dmotta.blogspot.com.javaprolog; import java.util.Hashtable; import jpl.Query; public class TestJavaProlog { /** * @Autor David

Debugging Remoto con Eclipse + WebSphere 7 + Maven

Tienes proyectos java en Maven y no puedes ubicar bugs fácilmente a falta de junit. Sin embargo, existe la alternativa de debugear la aplicación web a través de Java Debugger (jdb). Aquí les muestro una guía de como hacer un debug remoto de la aplicación web en Eclipse y WebSphere 7 a través de Java Debugger (JDB). Eclipse <----> Java Debugger (jdb) <----> WebSphere 7 1. Habilitar el WebSphere en modo Debug. Para esto seguir los siguientes pasos:  1. Servers –> Server Types –> WebSphere application servers 2. Under Server Infrastructure section –> expandir Java and Process Management –> Process definition 3. dentro de la seccion Additional Properties –> click Java Virtual Machine 4. clic en el check “Debug Mode” 5. En texbox Debug arguments, poner este valor:  -Xdebug -Xnoagent -Xrunjdwp:transport=dt_socket,server=y,suspend=n,address=8888 6. Reiniciar el servidor WebSphere. Ahora, WebSphere se inicia en modo debug, y escuchando en el pu

Java POI HSSFCell : añadir comentario en una celda

POI HSSFComment: Una manera simple de añadir un comentario en una celda de excel usando el metodo cell.setCellComment(). public class ExcelTools { public static void main(String[] args){ //escribirExcel(); //leerExcel(); validarValoresDuplicadosLista(); System.out.println("Ejemplo Finalizado."); } public static void escribirExcel(){ try{ //Se crea el libro Excel HSSFWorkbook wb = new HSSFWorkbook(); //Se crea una nueva hoja dentro del libro HSSFSheet sheet = wb.createSheet("HojaEjemplo"); //Se crea una fila dentro de la hoja HSSFRow row = sheet.createRow((short)0); HSSFPatriarch patr = sheet.createDrawingPatriarch(); //Creamos celdas de varios tipos row.createCell((short)0).setCellValue(1); row.createCell((short)1).setCellValue(1.2); row.createCell((short)2).setCellValue("ejemplo&