Help for this page

Select Code to Download

Select or download this
```
$bits |= (1<<$val)
```

Select or download this

if( unpack( "%16B*", pack("n", $bits)) == 1 ) {
  my $ret = 0;
...
  };
  return $ret;
};