File: args.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 (25 lines) | stat: -rw-r--r-- 455 bytes parent folder | download | duplicates (7) 
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
 
f(a)=vecsort(subst(nfgaloisconj(x^4+1,,a),x,100))
g(a=[5,4,1,3,2],b=[[5,4,3,2,1]])=
{
  print(vecsort(a));
  print(vecsort(b,[2,3]));
  print(vecsort(a,,4));
  print(vecsort(b,[2,3],4));
}
h(x=0,y=0,z=0)=4*x+2*y+z
testh()=
{
  print(h());
  print(h(1));
  print(h(1,));
  print(h(1,,));
  print(h(,1));
  print(h(,1,));
  print(h(,,1));
  print(h(1,1));
  print(h(1,1,));
  print(h(1,,1));
  print(h(,1,1));
  print(h(1,1,1));
}
s(x)=[Str(x,,),Str(x,,x)]