/usr/share/genius/gel/misc/misc.gel is in genius-common 1.0.16-0ubuntu1.
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 | # Misc Constants/functions for Dr. Genius
#make something a string
SetHelp("string","basic","Make a string");
function string(s) = s + ""
SetHelp("Compose","basic","Compose two functions")
function Compose(f,g) = (`(x)[f,g]=(local *;f(g(x))))
SetHelp("ComposePower","basic","Compose a function with itself n times, passing x as argument, and returning x if n == 0")
function ComposePower(f,n,x) = (
local *;
for k=1 to n do
x = f call (x);
x
)
|