Dadas las siguientes definiciones:

find f lista = head (filter f lista)

--Este es un curso a modo de ejemplo para que lo usen en sus pruebas

cursoK1024 = [("Leonardo",[4,6,7,8]),("Raphael",[1]),("Donatello",[10,10,10]),("Michelangelo",[4,4])]

Se quiere

1. Dado el nombre de una persona y un curso saber si esa persona es un alumno regular de dicho curso. Esto se da si se cumplen las siguientes condiciones:
• que esa persona sea un alumno del curso y
• que haya rendido al menos 3 parciales Main> esRegularEn cursoK1024 "Shredder" False
  Main> esRegularEn cursoK1024 "Raphael" False
  Main> esRegularEn cursoK1024 "Leonardo" True
2. Saber cuántos alumnos que no son regulares tiene un curso
   Main> cantidadAlumnosIrregulares cursoK1024 2
3. Obtener una lista con los nombres de los alumnos de un curso que se hayan sacado al menos una nota mayor a 7