Ejemplo recursivas auxilares

;;contrato: conteo: simbolo, lista de simbolos -> numero
(define (conteo elm lst)
  (cond
    [(empty? lst) 0]
    [(symbol=? elm (first lst)) (+ 1 (conteo elm (rest lst)))]
    [else (conteo elm (rest lst))]
    ))

;;contrato: conteo-elementos: lista de simbolos, lista de simbolos -> lista de listas
(define (conteo-elementos lst-s lst-total)
  (cond
    [(empty? lst-s) empty]
    [else
     (cons (conteo (first lst-s) lst-total)
                   (conteo-elementos (rest lst-s) lst-total))]))


;;Ejemplos
(define lista-simbolos (list 'a 'b 'c 'd 'e))
(define lista-total (list 'a 'a 'a 'a 'b 'b 'a 'a 'a 'c 'c 'c))

(conteo-elementos lista-simbolos lista-total)