Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
65
Task/Set/Sidef/set-1.sidef
Normal file
65
Task/Set/Sidef/set-1.sidef
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
class Set(*set) {
|
||||
|
||||
method init {
|
||||
var elems = set;
|
||||
set = Hash.new;
|
||||
elems.each { |e| self += e }
|
||||
}
|
||||
|
||||
method +(elem) {
|
||||
set{elem} = elem;
|
||||
self;
|
||||
}
|
||||
|
||||
method del(elem) {
|
||||
set.delete(elem);
|
||||
}
|
||||
|
||||
method has(elem) {
|
||||
set.has_key(elem);
|
||||
}
|
||||
|
||||
method ∪(Set that) {
|
||||
Set(set.values..., that.values...);
|
||||
}
|
||||
|
||||
method ∩(Set that) {
|
||||
Set(set.keys.grep{ |k| k ∈ that } \
|
||||
.map { |k| set{k} }...);
|
||||
}
|
||||
|
||||
method ∖(Set that) {
|
||||
Set(set.keys.grep{|k| !(k ∈ that) } \
|
||||
.map {|k| set{k} }...);
|
||||
}
|
||||
|
||||
method ^(Set that) {
|
||||
var d = ((self ∖ that) ∪ (that ∖ self));
|
||||
Set(d.values...);
|
||||
}
|
||||
|
||||
method count { set.len }
|
||||
|
||||
method ≡(Set that) {
|
||||
(self ∖ that -> count.is_zero) && (that ∖ self -> count.is_zero);
|
||||
}
|
||||
|
||||
method values { set.values }
|
||||
|
||||
method ⊆(Set that) {
|
||||
that.set.keys.each { |k|
|
||||
k ∈ self || return false;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
method to_s {
|
||||
"Set{" + set.values.map{|e| "#{e}"}.sort.join(', ') + "}"
|
||||
}
|
||||
}
|
||||
|
||||
class Object {
|
||||
method ∈(Set set) {
|
||||
set.has(self);
|
||||
}
|
||||
}
|
||||
22
Task/Set/Sidef/set-2.sidef
Normal file
22
Task/Set/Sidef/set-2.sidef
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
var x = Set(1, 2, 3);
|
||||
5..7 -> each { |i| x += i };
|
||||
|
||||
var y = Set(1, 2, 4, x);
|
||||
|
||||
say "set x is: #{x}";
|
||||
say "set y is: #{y}";
|
||||
|
||||
[1,2,3,4,x].each { |elem|
|
||||
say ("#{elem} is ", elem ∈ y ? '' : 'not', " in y");
|
||||
}
|
||||
|
||||
var (w, z);
|
||||
say ("union: ", x ∪ y);
|
||||
say ("intersect: ", x ∩ y);
|
||||
say ("z = x ∖ y = ", z = (x ∖ y) );
|
||||
say ("y is ", x ⊆ y ? "" : "not ", "a subset of x");
|
||||
say ("z is ", x ⊆ z ? "" : "not ", "a subset of x");
|
||||
say ("z = (x ∪ y) ∖ (x ∩ y) = ", z = ((x ∪ y) ∖ (x ∩ y)));
|
||||
say ("w = x ^ y = ", w = (x ^ y));
|
||||
say ("w is ", w ≡ z ? "" : "not ", "equal to z");
|
||||
say ("w is ", w ≡ x ? "" : "not ", "equal to x");
|
||||
Loading…
Add table
Add a link
Reference in a new issue