9 lines
176 B
Text
9 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);
|
||
|
|
}
|