CoCalc Public Fileswww / 168 / notes / 2005-10-19 / example2.mOpen with one click!
Author: William A. Stein
Compute Environment: Ubuntu 18.04 (Deprecated)
1
function f1(n, m)
2
print "hello";
3
for i in [n..m] do
4
print i;
5
end for;
6
return n+m;
7
end function;
8
9
function k(n)
10
return n + 1;
11
end function;
12
13
intrinsic t(n::RngIntElt, m::RngIntElt) -> RngIntElt
14
{This intrinsic returns n + m.}
15
return n + m;
16
end intrinsic;
17
18
intrinsic t(n::FldRatElt, m::FldRatElt) -> RngIntElt
19
{This intrinsic returns n + m.}
20
return n* m;
21
end intrinsic;
22
23
24
procedure g1(n, m)
25
print "hello";
26
end procedure;
27
28