Anonymous user
Set of real numbers: Difference between revisions
→{{header|Perl}}
(Added EchoLisp) |
|||
Line 743:
=={{header|
Define some sets and use built-in functions:
<lang parigp>set11(x,a,b)=select(x -> a <= x && x <= b, x);
set01(x,a,b)=select(x -> a < x && x <= b, x);
set10(x,a,b)=select(x -> a <= x && x < b, x);
set00(x,a,b)=select(x -> a < x && x < b, x);
V = [0, 1, 2];
setunion(set01(V, 0, 1), set10(V, 0, 2))
setintersect(set10(V, 0, 2), set01(V, 1, 2))
setminus(set10(V, 0, 3), set00(V, 0, 1))
setminus(set10(V, 0, 3), set11(V, 0, 1))</lang>
Output:<pre>
[0, 1]
[]
[0, 1, 2]
[2]</pre>=={{header|Perl}}==
<lang perl>use utf8;
Line 935 ⟶ 953:
length = 2.07586484118467
not empty</lang>
=={{header|Perl 6}}==
<lang perl6>class Iv {
| |||