15 lines
302 B
Perl
15 lines
302 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
$num1=50;
|
||
|
|
$num2=100;
|
||
|
|
$num3=0;
|
||
|
|
|
||
|
|
print $num1 && $num3, "\n";
|
||
|
|
print $num3 && $num1, "\n";
|
||
|
|
print $num1 && $num2, "\n";
|
||
|
|
print $num2 && $num1, "\n\n";
|
||
|
|
|
||
|
|
print $num1 || $num3, "\n";
|
||
|
|
print $num3 || $num1, "\n";
|
||
|
|
print $num1 || $num2, "\n";
|
||
|
|
print $num2 || $num1, "\n";
|