7 lines
200 B
Perl
7 lines
200 B
Perl
|
|
||
|
|
|
||
|
|
print 5 & 4,"\n"; # 101 & 100
|
||
|
|
print 5 & 0,"\n"; # 101 & 000
|
||
|
|
print 4 & 0,"\n"; # 100 & 000
|
||
|
|
print 0 & 4,"\n"; # 000 & 100
|
||
|
|
print "=" x 10,"\n"; # print 10 equal signs
|