Reptile - Snake - Python
- Cobra
- Lizard - Salamander
- Chameleon
- Bird - Pigeon
- Canary
- Owl
Mammal - Equine - Horse
- Zebra
- Pony
- Canine - Dog
- Fox
- Wolf
- Bovine - Cow
- Bison
####
my $zoo = 'Zoo'->new(qw( Cobra Pigeon Zebra ));
##
##
print join ' ', $zoo->get_leaves; # Cobra Pigeon Zebra
##
##
'Zoo'->diff( 'Zoo'->new('Cobra'),
'Zoo'->new('Fox')
)
##
##
( [qw[ Fox Canine Mammal ]],
[qw[ Cobra Snake Reptile ]]
)
##
##
'Zoo'->diff( 'Zoo'->new(qw( Dog Fox Wolf )),
'Zoo'->new(qw( Fox )));
##
##
( [],
[ 'Dog', 'Wolf' ]
)
##
##
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,