File: return.gp

package info (click to toggle)
gp2c 0.0.14pl1-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 3,180 kB
  • sloc: ansic: 8,608; sh: 1,630; lex: 347; yacc: 227; makefile: 107
file content (20 lines) | stat: -rw-r--r-- 495 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
f(x)=local(z);z=x;return(z)
g(x:bool)=!x
h(v:vec)=if(type(v)=="t_MAT",return(v[1,1]),return(v[1]))
kk(p)=
{
  for(i=1,p-1,if(kronecker(i,p)<0,return([i,i^2%p])));
  error("not found");
}
k(n)=vector(n,i,kk(prime(i+1)))

t1(x) = if (1, return([0]))
t2(x) = if (1, return(List([0])))
t3(x) = if (x, return([0]))
t4(x) = if (x, return([0]),return([1]))

global(BAD):int;
init(n)=BAD=n;
cl()=print(BAD);return(BAD)
run(i)=my(z=i+cl());return(z);
foo()=for(i=1,3,vector(100,i,213213);print(run(i)));