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)
Casiano Rodríguez León