Select Code to Download

Reptile - Snake - Python
                - Cobra
...
                - 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,