/usr/share/genius/gel/sets/basic.gel is in genius-common 1.0.23-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | # Basic set theory functions for Genius
# FIXME: Genius should really implement native set type
SetHelp ("Union", "sets", "Returns a set theoretic union of X and Y (X and Y are vectors pretending to be sets)");
function Union(X,Y) =
(
for x in X do
if not IsIn(x,Y) then Y=[Y,x];
Y
)
SetHelp ("MakeSet", "sets", "Returns a set where every element of X appears only once");
function MakeSet(X) =
(
S = null;
for x in X do
if not IsIn(x,S) then S=[S,x];
S
)
|