File: while.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 (26 lines) | stat: -rw-r--r-- 403 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
f(a)=
{
	local(x,y=1);
	x=[1,[1,1],[1,a]];
	while(x[if(a,3,2)]!=[1,y],y++;print(y));
	print("end");
}
g(a)=
{
	local(x,y=1);
	x=[1,[1,1],[1,a]];
	until(x[if(a,3,2)]!=[1,y],y++;print(y));
	print("end");
}
h(a)=
{
  local(j=1);
  while(sum(i=1,#a,a[i]),a[j]--;j=j%#a+1);a
}
k(a)=
{
  local(j=1);
  until(sum(i=1,#a,a[i])==0,a[j]--;j=j%#a+1);a
}
l(a)=my(n=0);while(a[n++],);n
m(a)=my(n=0);until(a[n++],);n