From: Maria
Subject: Necesito ayuda con lisp
Date: Thu, 04 Apr 2002 19:14:11 +0000
Message-ID: <6e4df0b5.0204041114.6d5d3c8@posting.google.com>

Hola a todos;
Tengo que escribir una funci�n que a partir de una pila de n�meros
enteros y de dos n�meros, reemplace en la pila todas las ocurrencias
del primer elemento por el segundo implementado en lisp.Si alguien me
puede ayudar...
Saludos
Maria

• Re: Necesito ayuda con lisp Matthieu Villeneuve
• Re: Necesito ayuda con lisp Karsten Poeck
  • [NOISE]Re: Necesito ayuda con lisp Joe Marshall

From: Matthieu Villeneuve
Subject: Re: Necesito ayuda con lisp
Date: Thu, 04 Apr 2002 19:52:22 +0000
Message-ID: <3CACAF05.B8DB13C1@tumbleweed.com>

(subst 10 2 '(1 2 3 2 4)) => (1 10 3 10 4)

--Matthieu


Maria wrote:
> 
> Hola a todos;
> Tengo que escribir una funci�n que a partir de una pila de n�meros
> enteros y de dos n�meros, reemplace en la pila todas las ocurrencias
> del primer elemento por el segundo implementado en lisp.Si alguien me
> puede ayudar...
> Saludos
> Maria

From: Karsten Poeck
Subject: Re: Necesito ayuda con lisp
Date: Fri, 05 Apr 2002 22:17:14 +0000
Message-ID: <a8l7em$fa8$1@news.wanadoo.es>

(defun seria-conveniente-que-admitas-que-se-trata-de-deberes-chica
(num-to-be-substituded new-number pila)
  (if (null pila)
      pila
    (let ((num (first pila)))
      (if (= num num-to-be-substituded)
          (cons new-number
(seria-conveniente-que-admitas-que-se-trata-de-deberes-chica
num-to-be-substituded new-number (rest pila)))
        (cons num
(seria-conveniente-que-admitas-que-se-trata-de-deberes-chica
num-to-be-substituded new-number (rest pila)))))))



(seria-conveniente-que-admitas-que-se-trata-de-deberes-chica 1 2 '(1 2 3 1 2
1))


"Maria" <············@hotmail.com> wrote in message
································@posting.google.com...
> Hola a todos;
> Tengo que escribir una funci�n que a partir de una pila de n�meros
> enteros y de dos n�meros, reemplace en la pila todas las ocurrencias
> del primer elemento por el segundo implementado en lisp.Si alguien me
> puede ayudar...
> Saludos
> Maria

From: Joe Marshall
Subject: [NOISE]Re: Necesito ayuda con lisp
Date: Sat, 06 Apr 2002 06:31:21 +0000
Message-ID: <ZCwr8.9551$%s3.2736294@typhoon.ne.ipsvc.net>

And the award for `Identifier of the Week' goes to
"Karsten Poeck" <······@terra.es>
for
 `seria-conveniente-que-admitas-que-se-trata-de-deberes-chica'