Power set: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,297: / Line 1,297: @@
 {{out}}
 <pre>[ set{ } set{ 4 } set{ 3 4 } set{ 3 } set{ 2 3 } set{ 2 3 4 } set{ 2 4 } set{ 2 } set{ 1 2 } set{ 1 2 4 } set{ 1 2 3 4 } set{ 1 2 3 } set{ 1 3 } set{ 1 3 4 } set{ 1 4 } set{ 1 } ]</pre>
+=={{header|Delphi}}==
+{{libheader| System.SysUtils}}
+{{Trans|C#}}
+<lang Delphi>
+program Power_set;
+{$APPTYPE CONSOLE}
+uses
+  System.SysUtils;
+const
+  n = 4;
+var
+  buf: TArray<Integer>;
+procedure rec(ind, bg: Integer);
+begin
+  for var i := bg to n - 1 do
+  begin
+    buf[ind] := i;
+    for var j := 0 to ind do
+      write(buf[j]: 2);
+    writeln;
+    rec(ind + 1, buf[ind] + 1);
+  end;
+end;
+begin
+  SetLength(buf, n);
+  rec(0,0);
+  {$IFNDEF UNIX}readln;{$ENDIF}
+end.</lang>
 =={{header|E}}==