en esta oportunidad les traigo el primer ejemplo de manejo de listas en scheme y como quitar un elemento de una lista.
toma de pantalla DrRacket - como quitar un elemento de una lista |
; =========================================================================== (define-struct Toy (nom pre)) ;Toy representa un juguete ;nom = nombre tipo symbol ;pre = precio tipo number (define juguetes (list (make-Toy 'car 30) (make-Toy 'dol 30) (make-Toy 'goku 40) (make-Toy 'barbie 50) (make-Toy 'mini-kira 200))) (define (quitar lis lim) (cond [(empty? lis) empty] [(> (Toy-pre (car lis)) lim)(quitar (cdr lis) lim)] [else (cons (car lis) (quitar (cdr lis) lim))] )) ;Prueba: (quitar juguetes 50) ; ===========================================================================