Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...

$_ = '00111';
1 while print("$_\n"), s/.*\K01(.*)/10 . reverse $1/e;

Select or download this
```
00111
01011
...
11001
11010
11100
```