File: multiassign.gp

package info (click to toggle)
gp2c 0.0.11pl1-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 2,792 kB
  • sloc: ansic: 8,398; sh: 1,687; lex: 340; yacc: 215; makefile: 140
file content (15 lines) | stat: -rw-r--r-- 182 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
f(v,c=0)=local(a,b=[1]);[a,b[c+1]]=v;a+b[1]
g(v)=
{
  my(a,[b,c]=v,d=v,e=3);
  [a,b,c,d,e]
}
h1(v:vecsmall)=
{
  my([a,b]=v); [b,a]
}
h2(v:vecsmall)=
{
  my(a,b);
  [a,b]=v; [b,a]
}