محاسبه مجموعه توانی بصورت بازگشتی

[abdolwahab]

آیا کسی الگوریتم محاسبه مجموعه توانی یک مجموعه به روش بازگشتی را داردو یا میتونه یه راهنمایی بکند ممنون میشم

[Sepidar]

Proc MakePowerSet(s1,s2:set of SomeType);
var a:SomeType;
begin
ifs1<>nil then
a:=some member of s1;
MakePowerSet(s1-{a},s2);
MakePowerSet(s1-{a},s2+{a});
end else WriteSet(s2);
end;

Proce Main;
begin
MakePowerSet({a,b,c},nil);
end.

موفق باشید :)