lunes, 21 de enero de 2008

Insertar un Número en un Lista en Lenguaje Scheme

Escriba una función denominada inserta, la cual debe insertar un número dado en una lista numérica (ordenada de forma ascendente) dada como segundo argumento. La lista debe permanecer ordenada tras la inserción

(define (inserta x Lista1)
(cond
((null? Lista1)(cons x Lista1))
((< x (car Lista1))(cons x Lista1))
(else(cons(car Lista1)(inserta x (cdr Lista1))))))