Help for this page

Select Code to Download

Select or download this

use strict;

...
  1 while s/^(\d*)\n\1.*$/$1/mg || s/^(\d*)0\n\1.$/$1/mg;
  map { bits2cidr($_) } (!@_ || length($_)) ? split : '';
}

Select or download this
```
10010
100100
100101
```