Un modo natural de representar conjuntos finitos en Perl es a través de un hash:
@A = qw(hiena coyote lobo zorro); @Caninos{@A} = (); # los valores se dejan undef, solo nos importan las claves @Pares{0, 2, 4, 6, 8} = ();Defina funciones para
La siguiente sesión con el depurador le ayudará a encontrar las respuestas a algunas de las preguntas que se le plantearán durante la resolución de la práctica:
DB<1> @a{1..4} = (); @p{0, 2, 4, 6, 8} = () DB<2> @u{keys %a, keys %p} = () # unión DB<3> @i{grep {exists $p{$_}} keys %a} = () # intersección
Casiano Rodríguez León