Número en Binario = Conjunto

La idea en la que se basa el iterador de conjuntos es que la representación binaria de un número puede verse como la definición de un conjunto. Los unos indican pertenencia y los ceros no pertenencia. Observe la misma ejecución anterior pero prefijado con la representación binaria del número de orden:

~/Lperl/src$ perl allsubsets.pl A B C D | perl -ne 'printf "%2d:%4b %s",$k,$k,$_; $k++'
 0:   0 ()
 1:   1 (A)
 2:  10 (B)
 3:  11 (A, B)
 4: 100 (C)
 5: 101 (A, C)
 6: 110 (B, C)
 7: 111 (A, B, C)
 8:1000 (D)
 9:1001 (A, D)
10:1010 (B, D)
11:1011 (A, B, D)
12:1100 (C, D)
13:1101 (A, C, D)
14:1110 (B, C, D)
15:1111 (A, B, C, D)