Anonymous user
Power set: Difference between revisions
m
→{{header|Ada}}
m (→{{header|Ada}}) |
|||
Line 123:
<lang Ada>
with
use Ada.Text_IO, Ada.Command_Line;
procedure powerset is
Line 131 ⟶ 132:
first : boolean := true;
begin
for i in 1.
if k mod 2 = 1 then
if first then
first := false;
else
end if;
end if;
k := k / 2; -- we go to the next bit of "set"
end loop;
end print_subset;
begin
for i in 0..2**
print_subset (i);
end loop;
|