#!/usr/bin/perl -w

%father = ( 'Cain' => 'Adam',
            'Abel' => 'Adam',
            'Seth' => 'Adam',
            'Enoch' => 'Cain',
            'Irad' => 'Enoch',
            'Mehujael' => 'Irad',
            'Methusael' => 'Mehujael',
            'Lamech' => 'Methusael',
            'Jabal' => 'Lamech',
            'Jubal' => 'Lamech',
            'Tubalcain' => 'Lamech',
            'Enos' => 'Seth' );

$osoba = <STDIN>;
chomp($osoba);
while(defined $father{$osoba})
{
 $osoba = $father{$osoba};
        print "$osoba \n";
}

%child = reverse %father;

if (exists $child{$osoba})
{
        print "$osoba zostal stworzony w inny sposob\n";
}
else
{
        print "$osoba nie figuruje w bazie danych\n";
}
Last modified: poniedziałek, 10 sierpnia 2015, 10:49