aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Task/Set/Ada/set.ada
View file

@ -1,29 +0,0 @@
with ada.containers.ordered_sets, ada.text_io;
use ada.text_io;
procedure set_demo is
package cs is new ada.containers.ordered_sets (character); use cs;
function "+" (s : string) return set is
(if s = "" then empty_set else Union(+ s(s'first..s'last - 1), To_Set (s(s'last))));
function "-" (s : Set) return string is
(if s = empty_set then "" else - (s - To_Set (s.last_element)) & s.last_element);
s1, s2 : set;
begin
loop
put ("s1= ");
s1 := + get_line;
exit when s1 = +"Quit!";
put ("s2= ");
s2 := + get_line;
Put_Line("Sets [" & (-s1) & "], [" & (-s2) & "] of size"
& S1.Length'img & " and" & s2.Length'img & ".");
Put_Line("Intersection: [" & (-(Intersection(S1, S2))) & "],");
Put_Line("Union: [" & (-(Union(s1, s2))) & "],");
Put_Line("Difference: [" & (-(Difference(s1, s2))) & "],");
Put_Line("Symmetric Diff: [" & (-(s1 xor s2)) & "],");
Put_Line("Subset: " & Boolean'Image(s1.Is_Subset(s2))
& ", Equal: " & Boolean'Image(s1 = s2) & ".");
end loop;
end set_demo;

17
Task/Set/PowerShell/set.psh
View file

@ -1,17 +0,0 @@
[System.Collections.Generic.HashSet[object]]$set1 = 1..4
[System.Collections.Generic.HashSet[object]]$set2 = 3..6
# Operation + Definition + Result
#--------------------------------+---------------------+-------------------------
$set1.UnionWith($set2) # Union $set1 = 1, 2, 3, 4, 5, 6
$set1.IntersectWith($set2) # Intersection $set1 = 3, 4
$set1.ExceptWith($set2) # Difference $set1 = 1, 2
$set1.SymmetricExceptWith($set2) # Symmetric difference $set1 = 1, 2, 6, 5
$set1.IsSupersetOf($set2) # Test superset False
$set1.IsSubsetOf($set2) # Test subset False
$set1.Equals($set2) # Test equality False
$set1.IsProperSupersetOf($set2) # Test proper superset False
$set1.IsProperSubsetOf($set2) # Test proper subset False
5 -in $set1 # Test membership False
7 -notin $set1 # Test non-membership True