[ create a new paste ] login | about

Link: http://codepad.org/RKMxMmBD    [ raw code | output | fork ]

proch - Perl, pasted on Nov 16:
$FLAG = 16;


if ($FLAG & 0x1)  {
  print "0 OK $FLAG\n";
} else {
  print "0 NO\n";
}

if ($FLAG & 0x2)  {
  print "1 OK $FLAG\n";
} else {
  print "1 NO\n";
}
if ($FLAG & 0x4)  {
  print "2 OK $FLAG\n";
} else {
  print "2 NO\n";
}
if ($FLAG & 0x8)  {
  print "3 OK $FLAG\n";
} else {
  print "3 NO\n";
}
if ($FLAG & 0x10)  {
  print "4 OK $FLAG\n";
} else {
  print "4 NO\n";
}
if ($FLAG & 0x20)  {
  print "5 OK $FLAG\n";
} else {
  print "5 NO\n";
}
if ($FLAG & 0x40)  {
  print "6 OK $FLAG\n";
} else {
  print "6 NO\n";
}
if ($FLAG & 0x80)  {
  print "7 OK $FLAG\n";
} else {
  print "7 NO\n";
}


Output:
1
2
3
4
5
6
7
8
0 NO
1 NO
2 NO
3 NO
4 OK 16
5 NO
6 NO
7 NO


Create a new paste based on this one


Comments: