Data update

Task/Power-set/Ada/power-set.ada

@@ -1,22 +0,0 @@
-with Ada.Text_IO, Ada.Command_Line;
-use Ada.Text_IO, Ada.Command_Line;
-
-procedure powerset is
-begin
-	for set in 0..2**Argument_Count-1 loop
-		Put ("{");			
-		declare
-			k : natural := set;
-			first : boolean := true;
-		begin
-			for i in 1..Argument_Count loop
-				if k mod 2 = 1 then
-					Put ((if first then "" else ",") & Argument (i));
-					first := false;
-			  	end if;
-				k := k / 2; -- we go to the next bit of "set"
-			end loop;
-		end;
-		Put_Line("}");
-	end loop;
-end powerset;

Task/Power-set/PowerShell/power-set.psh

@@ -1,34 +0,0 @@
-function power-set ($array) {
-    if($array) {
-        $n = $array.Count
-        function state($set, $i){
-            if($i -gt -1) {
-                state $set ($i-1)
-                state ($set+@($array[$i])) ($i-1)
-            } else {
-                "$($set | sort)"
-            }
-        }
-        $set = state @() ($n-1)
-        $power = 0..($set.Count-1) | foreach{@(0)}
-        $i = 0
-        $set | sort | foreach{$power[$i++] = $_.Split()}
-        $power | sort {$_.Count}
-    } else {@()}
-
-}
-$OFS = " "
-$setA = power-set  @(1,2,3,4)
-"number of sets in setA: $($setA.Count)"
-"sets in setA:"
-$OFS = ", "
-$setA | foreach{"{"+"$_"+"}"}
-$setB = @()
-"number of sets in setB: $($setB.Count)"
-"sets in setB:"
-$setB | foreach{"{"+"$_"+"}"}
-$setC = @(@(), @(@()))
-"number of sets in setC: $($setC.Count)"
-"sets in setC:"
-$setC | foreach{"{"+"$_"+"}"}
-$OFS = " "

Task/Power-set/VBScript/power-set.vb

@@ -1,33 +0,0 @@
-Function Dec2Bin(n)
-	q = n
-	Dec2Bin = ""
-	Do Until q = 0
-		Dec2Bin = CStr(q Mod 2) & Dec2Bin
-		q = Int(q / 2)
-	Loop
-	Dec2Bin = Right("00000" & Dec2Bin,6)
-End Function
-
-Function PowerSet(s)
-	arrS = Split(s,",")
-	PowerSet = "{"
-	For i = 0 To 2^(UBound(arrS)+1)-1
-		If i = 0 Then
-			PowerSet = PowerSet & "{},"
-		Else
-			binS = Dec2Bin(i)
-			PowerSet = PowerSet & "{"
-			c = 0
-			For j = Len(binS) To 1 Step -1
-				If CInt(Mid(binS,j,1)) = 1 Then
-					PowerSet = PowerSet & arrS(c) & ","	
-				End If
-				c = c + 1
-			Next
-			PowerSet = Mid(PowerSet,1,Len(PowerSet)-1) & "},"
-		End If
-	Next
-	PowerSet = Mid(PowerSet,1,Len(PowerSet)-1) & "}"
-End Function
-
-WScript.StdOut.Write PowerSet("1,2,3,4")