Listas y estructuras SIMPLE - 15 04 2013

;Proposito: Solo se le quiere sumar un hijueputa uno (1) a cada puto numero de las malparidas estructuras dentro de la piroba lista.
(define-struct cosita (simbolo numero))
;***Funcion
(define (dildo aqui)
  (cond
    [(empty? aqui) empty];recordar: cons y empty son operadores de listas
    [else (cons (make-cosita (cosita-simbolo (first aqui))
                             (+ (cosita-numero (first aqui)) 1))
                (dildo (rest aqui)))]))
;***Lista con estructuras dentro de ella
(define listica (list (make-cosita 'celular 11)
                      (make-cosita 'cedula 33)
                      (make-cosita 'gornosofia 22)))
;***Ejemplo
(dildo listica);(cons (make-cosita 'porno_anal 12) (cons (make-cosita 'mierda 34) (cons (make-cosita 'gornosofia 23) empty)))