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)
; ===========================================================================
