Alergias

Instrucciones

Dada la puntuación de alergias de una persona, determina si tiene o no alergia a un elemento dado, y su lista completa de alergias.

Una prueba de alergias produce una única puntuación numérica que contiene la información sobre todas las alergias que tiene la persona (aquellas para las que fue evaluada).

La lista de elementos (y su valor) que se evaluaron es:

• huevos (1)
• maní (2)
• mariscos (4)
• fresas (8)
• tomates (16)
• chocolate (32)
• polen (64)
• gatos (128)

Entonces, si Tom es alérgico al maní y al chocolate, obtiene una puntuación de 34.

Ahora, dada solo esa puntuación de 34, tu programa debería poder decir:

• Si Tom es alérgico a alguno de esos alérgenos listados arriba.
• Todos los alérgenos a los que Tom es alérgico.

Nota: una puntuación dada puede incluir alérgenos no listados arriba (es decir, alérgenos que valen 256, 512, 1024, etc.). Tu programa debería ignorar esos componentes de la puntuación. Por ejemplo, si la puntuación de alergias es 257, tu programa solo debería reportar la alergia a los huevos (1).

Pistas

Para completar este ejercicio, necesitas crear el tipo de dato Allergen, con instancias de Eq y Show, e implementar las siguientes funciones:

• allergies
• isAllergicTo

Encontrarás una declaración de datos ficticia y las firmas de tipo ya en su lugar, pero depende de ti definir las funciones y crear un tipo de dato significativo, un newtype o un sinónimo de tipo.

---

Fuente

Ejercicio del equipo de JumpstartLab para estudiantes de The Turing School of Software and Design.