Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Necesito ayuda con lisp

9 views
Skip to first unread message

Maria

unread,
Apr 4, 2002, 2:14:11 PM4/4/02
to
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

Matthieu Villeneuve

unread,
Apr 4, 2002, 2:52:22 PM4/4/02
to
(subst 10 2 '(1 2 3 2 4)) => (1 10 3 10 4)

--Matthieu

Karsten Poeck

unread,
Apr 5, 2002, 5:17:14 PM4/5/02
to
(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" <palurd...@hotmail.com> wrote in message
news:6e4df0b5.0204...@posting.google.com...

Joe Marshall

unread,
Apr 6, 2002, 1:31:21 AM4/6/02
to
And the award for `Identifier of the Week' goes to
"Karsten Poeck" <vs1...@terra.es>
for
`seria-conveniente-que-admitas-que-se-trata-de-deberes-chica'


0 new messages