Ir al contenido principal

Funciones Lisp - parte 2

Mas funciones de Lisp



;realizar  una funcion lisp q  permita calcular el  producto de 2 numeros usando la  multiplicacion russa
(defun alg-ruso (n1 n2)
 (DO
  (
   (ACUM 0)
  )
  ( (ZEROP n1) ACUM)
  (setq ACUM (IF (ODDP n1)  (+ ACUM n2) ACUM))
  (setq n1 (floor (/ n1 2.0)) )
  (setq n2 (* n2 2))
 )
)

;REDIFINIR LA FUNCION LENGHT PARA CALCULAR LA LONGITUD O EL NUMERO  DE ELEMENTOS DE UNA  LISTA
(defun long-lista (Lista)
 (DO
  (
   (LAux Lista (cdr LAux))
   (N 0 (1+ N))
  )
  ((NULL LAux) N)
  ;si la condicion es NIL, pasa a este lado...
 )
)

;Funcion que invierte los valores de una lista
(defun reves (Lista)
 (DO
  (
   (LAux Lista (cdr LAux))
   (LInv nil (cons (car LAux) LInv))
  )
  ((NULL LAux) LInv)
 )
)
Etiquetas:

Comentarios

Publicar un comentario

Entradas populares de este blog

Primer CodeLab de Web Services con Mule ESB, JAX WS, SOAP, WSDL, Spring

Primer CodeLab de Web Services usando [ Mule ESB , JAX WS , SOAP , WSDL , Spring ]. en este post no hablaré nada teórico sobre Mule , ya que ello lo pueden encontrar Googleando, será un lab totalmente práctico. Requisitos: - JDK  1.6 - MuleStudio - soapUI Paso a Paso para crear Web Services con Mule : 1. Crear proyecto Mule ( MuleStudio ):  Next > Next > Next > Finish 2.- Crear el Objeto Producto.java package com.dmotta.mule.labuno.mulelabuno.bo; import java.io.Serializable; public class Producto implements Serializable { private String id; private String nombre; private String marca; private String descripcion; public Producto() { } public Producto(String id, String nombre, String marca, String descripcion) { this.id=id; this.nombre=nombre; this.marca=marca; this.descripcion=descripcion; } //getters/setters } 3.- Crear la Interface que publicará los métodos listarProductos() y getDetalleProdu...
2 comentarios
Leer más

RESTful Webservices con Java (Jersey / JAX-RS) - Tutorial Uno

REST con Java (JAX-RS) usando Jersey Este articulo explica como desarrollar RESTful web services en Java con JAX-RS implementacion de Jersey. En este ejemplo se usara SpringSource Tools Suite(Eclipse Helios), Java 1.6, SpringSource TC Server and JAX-RS 1.1. (Jersey 1.4). 1. REST - Representational State Transfer 1.1 Informacion General: En una Arquitectura REST tipicamente se tiene un REST server , el cual provee acceso a los Clientes REST  que acceden a consultar, modificar un Recurso REST . REST permite que los recursos sean presentados en diferentes tipos de datos, "text, html, xml, JSON" .  El Cliente REST  puede generar una peticion de un tipo de dato via el protocolo HTTP. 1.2. HTTP metodos Los metodos estandar HTTP usados en en REST son  PUT, GET, POST, DELETE. 1.3. RESTFul webservices Un RESTFul webservices es basados en metodos HTTP y en el concepto REST.  Por lo general se define URI base para los servicios, los MIME-types sus...
4 comentarios
Leer más

Prolog - Ejemplos de Listas

Comparto el material de estudio antes de un Examen de Prolog. % insertar un entero al inicio de la lista insertarInicio(X,L,[X|L]). % Insertar un elemento al final de una lista insertarFinal(X,[],[X]). insertarFinal(X,[L|Ls],[L|R]):-insertarFinal(X,Ls,R). % Insertar un entero en una lista de enteros indicandole la posicion insertar(E,[X|Xs],1,L):- L=[E,X|Xs],write("Fin"),nl,!. insertar(E,[X|Xs],P,L):- N1=P-1,write(N1),nl,insertar(E,Xs,N1,L1),L=[X|L1]. % Buscar un elemento en una lista pertenece(X,[X|_]):-!. pertenece(X,[_|Xs]):-pertenece(X,Xs). % Eliminar un elemento de una lista eliminar(X,[X|Xs],Xs):-!. eliminar(X,[Y|Ys],[Y|Lr]):-eliminar(X,Ys,Lr). % Eliminar ocurrencias de un elemento en una lista eliminarOcurrencias(_,[],[]):-!. eliminarOcurrencias(X,[X|Xs],Ys):- eliminarOcurrencias(X,Xs,Ys),!. eliminarOcurrencias(X,[Y|Ys],[Y|Lr]):-eliminarOcurrencias(X,Ys,Lr). % Determina si todos los elementos de una lista son iguales iguales([])....
3 comentarios
Leer más