use strict; use warnings; use utf8; my $arg = ; chomp $arg; my ($N, $K) = split /\s/, $arg; my $str = ""; if ($N eq "0") { if ($K eq "0") { $str = "Drew\n"; } elsif ($K eq "1") { $str = "Won\n"; } else { $str = "Lost\n"; } } elsif ($N eq "1") { if ($K eq "0") { $str = "Lost\n"; } elsif ($K eq "1") { $str = "Drew\n"; } else { $str = "Won\n"; } } else { if ($K eq "0") { $str = "Won\n"; } elsif ($K eq "1") { $str = "Lost\n"; } else { $str = "Drew\n"; } } print $str;