8 lines
176 B
Text
8 lines
176 B
Text
{string} s={"A","B","C","D"};
|
|
range r=1.. ftoi(pow(2,card(s)));
|
|
{string} s2 [k in r] = {i | i in s: ((k div (ftoi(pow(2,(ord(s,i))))) mod 2) == 1)};
|
|
|
|
execute
|
|
{
|
|
writeln(s2);
|
|
}
|