lunes, 21 de enero de 2008

Número de veces que aparece un valor en un lista en Lenguaje Scheme

Defina en Scheme una función ocurrencia que permita contar el número de veces que aparece un determinado valor dentro de una lista. Utilice para ello la función let


(define (ocurrencia x Lista1)
(if(null? Lista1) 0
(if(eq? x (car Lista1)) (+ 1 (ocurrencia x (cdr Lista1)))
(ocurrencia x (cdr Lista1)))))