Listas con Recursión

;;Autor: Carlos A Delgado
;;Fecha: 04 de Sep de 2020
;;size: lista de lista de simbolos -> numero
;;Propósito: Esta función cuenta el número de simbolos que tiene la lista
;;Ejemplos
;;(cons 'a (cons (cons 'b (cons 'c empty)) (cons 'd (cons 'e (cons (cons 'f (cons 'g empty)) empty)))))
(define (size lst)
  (cond
    [(empty? lst) 0]
    [(cons? (first lst))
     (+ (size (first lst)) (size (rest lst)))]
    [(symbol? (first lst)) (+ 1 (size (rest lst)))]
    [else (error "Los elementos deben ser símbolos")]))

(check-expect (size (cons 'a (cons (cons 'b (cons 'c empty)) (cons 'd (cons 'e (cons (cons 'f (cons 'g empty)) empty)))))
) 7)