Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Power-set/Ring/power-set.ring
+++ b/Task/Power-set/Ring/power-set.ring
@ -0,0 +1,20 @@
+# Project : Power set
+
+list = ["1", "2", "3", "4"]
+see powerset(list)
+
+func powerset(list)
+        s = "{"
+        for i = 1 to (2 << len(list)) - 1 step 2
+             s = s + "{"
+             for j = 1 to len(list)
+                  if i & (1 << j)
+                     s = s + list[j] + ","
+                  ok
+             next
+             if right(s,1) = ","
+                s = left(s,len(s)-1)
+             ok
+             s = s + "},"
+        next
+        return left(s,len(s)-1) + "}"