Set: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
No edit summary |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 31:
{{Template:See also lists}}
<br><br>
=={{header|Ada}}==
Line 776 ⟶ 777:
const s5 = [1, 1, 1, 4, 4, 7, 7, 7, 7, 8, 8];
assert(s4.nWayUnion.equal(s5));
}</lang> =={{header|D}}==
=={{header|D}}==▼
<lang d>
module set;
Line 1,891 ⟶ 1,889:
(1,2,5) is not included in a
</pre>
=={{header|J}}==
Line 2,765 ⟶ 2,762:
return setmetatable({}, { __call = new })</lang>
=={{header|M2000 Interpreter}}==
A tuple is a referenced type of an array, with variant type for each item (may also be a reference to another tuple). The empty tuple is this (,), and the one item is this (1,), and two items (1,2)
Line 2,844 ⟶ 2,842:
Sets
</lang>
=={{header|Maple}}==
Line 2,891 ⟶ 2,888:
false
</lang>
=={{header|Mathematica}}==
Line 3,722 ⟶ 3,718:
print "w is ", ($w == $z) ? "" : "not ", "equal to z\n";
print "w is ", ($w == $x) ? "" : "not ", "equal to x\n";</lang>
<lang perl6>use Test;▼
my $a = set <a b c>;▼
my $b = set <b c d>;▼
my $c = set <a b c d e>;▼
ok 'c' ∈ $a, "c is an element in set A";▼
nok 'd' ∈ $a, "d is not an element in set A";▼
is-deeply $a ∪ $b, set(<a b c d>), "union; a set of all elements either in set A or in set B";▼
is-deeply $a ∩ $b, set(<b c>), "intersection; a set of all elements in both set A and set B";▼
is $a (-) $b, set(<a>), "difference; a set of all elements in set A, except those in set B";▼
ok $a ⊆ $c, "subset; true if every element in set A is also in set B";▼
nok $c ⊆ $a, "subset; false if every element in set A is not also in set B";▼
ok $a ⊂ $c, "strict subset; true if every element in set A is also in set B";▼
nok $a ⊂ $a, "strict subset; false for equal sets";▼
ok $a === set(<a b c>), "equality; true if every element of set A is in set B and vice-versa";▼
nok $a === $b, "equality; false for differing sets";</lang>▼
{{out}}▼
<pre>ok 1 - c is an element in set A▼
ok 2 - d is not an element in set A▼
ok 3 - union; a set of all elements either in set A or in set B▼
ok 4 - intersection; a set of all elements in both set A and set B▼
ok 5 - difference; a set of all elements in set A, except those in set B▼
ok 6 - subset; true if every element in set A is also in set B▼
ok 7 - subset; false if every element in set A is not also in set B▼
ok 8 - strict subset; true if every element in set A is also in set B▼
ok 9 - strict subset; false for equal sets▼
ok 10 - equality; true if every element of set A is in set B and vice-versa▼
ok 11 - equality; false for differing sets</pre>▼
=={{header|Phix}}==
Line 4,470 ⟶ 4,433:
(subset? C B) ; gives #t
</lang>
(formerly Perl 6)
▲<lang perl6>use Test;
▲my $a = set <a b c>;
▲my $b = set <b c d>;
▲my $c = set <a b c d e>;
▲ok 'c' ∈ $a, "c is an element in set A";
▲nok 'd' ∈ $a, "d is not an element in set A";
▲is-deeply $a ∪ $b, set(<a b c d>), "union; a set of all elements either in set A or in set B";
▲is-deeply $a ∩ $b, set(<b c>), "intersection; a set of all elements in both set A and set B";
▲is $a (-) $b, set(<a>), "difference; a set of all elements in set A, except those in set B";
▲ok $a ⊆ $c, "subset; true if every element in set A is also in set B";
▲nok $c ⊆ $a, "subset; false if every element in set A is not also in set B";
▲ok $a ⊂ $c, "strict subset; true if every element in set A is also in set B";
▲nok $a ⊂ $a, "strict subset; false for equal sets";
▲ok $a === set(<a b c>), "equality; true if every element of set A is in set B and vice-versa";
▲nok $a === $b, "equality; false for differing sets";</lang>
▲{{out}}
▲<pre>ok 1 - c is an element in set A
▲ok 2 - d is not an element in set A
▲ok 3 - union; a set of all elements either in set A or in set B
▲ok 4 - intersection; a set of all elements in both set A and set B
▲ok 5 - difference; a set of all elements in set A, except those in set B
▲ok 6 - subset; true if every element in set A is also in set B
▲ok 7 - subset; false if every element in set A is not also in set B
▲ok 8 - strict subset; true if every element in set A is also in set B
▲ok 9 - strict subset; false for equal sets
▲ok 10 - equality; true if every element of set A is in set B and vice-versa
▲ok 11 - equality; false for differing sets</pre>
=={{header|REXX}}==
Line 4,725 ⟶ 4,722:
=> #<Set: {1, 2}>
>> </lang>
=={{header|Run BASIC}}==
<lang Runbasic>
Line 5,740 ⟶ 5,738:
A.Add "10", "10"
End Sub</lang>
=={{header|zkl}}==
A simplistic implementation that is fine for smallish sets
| |||