خوارزمية مبتكرة : تجزئة مجموعة ثامر أبو بلقيس

a = {1,2,3,4}
n = Table.Count(a);
p =""
r = ""
k=1
s=0
for i= 0,n-1 do
s=s+2^i
end
------------------------------
for j = 1,s do
m=j
while m>0 do
--"{"
if Math.Mod(m, 2)==1 then
p=p..a[k]..","
end
m = Math.Floor(m/2);
k=k+1
end
x = String.Length(p);
y = String.Mid(p, 1, x-1);
r=r.."{"..y.."}".."\r\n"
p =""
k=1
end
Dialog.Message("algorithme innovant_abou_belkiss","{}".. "\r\n"..r);