Maple Zápisník

Průnik a sjednocení seznamů

a:=[1, 2, 3, 4]; b:=[3, 4, 5];
a := [1, 2, 3, 4]
b := [3, 4, 5]
# prunik seznamu a, b
[seq]( v $ min(numboccur(v,a), numboccur(v,b)), v = {op(a), op(b)});
[3, 4]
# sjednoceni seznamu a, b
[seq]( v $ max(numboccur(v,a), numboccur(v,b)), v = {op(a), op(b)});
[1, 2, 3, 4, 5]

Výběr realných a komplexních čísel

roots_che := [1+3*I, 1-3*I, 5, 3, 5];
roots_che := [1 + 3 I, 1 - 3 I, 5, 3, 5]
isComplex := i -> `if`(argument(i) = 0, false, true);
rr:=remove(isComplex, roots_che);
rr := [5, 3, 5]
cr:=select(isComplex, roots_che);
cr := [1 + 3 I, 1 - 3 I]