source: git/Tst/Short/string.tst @ 1ebec3

spielwiese
Last change on this file since 1ebec3 was 866b07, checked in by Olaf Bachmann <obachman@…>, 25 years ago
* string stuff git-svn-id: file:///usr/local/Singular/svn/trunk@3002 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.6 KB
Line 
1LIB "tst.lib";
2tst_init();
3
4
5proc MyPrint(def what)
6{
7   "what";
8   what;
9   "print(what)";
10   print(what);
11   "string(what)";
12   string(what);
13   "print(what, \"%s\")";
14   print(what, "%s");
15   "print(what, \"%p\")";
16   print(what, "%p");
17   "print(what, \"%l\")";
18   print(what, "%l");
19   "print(what, \"%;\")";
20   print(what, "%;");
21   "print(what, \"%2s\")";
22   print(what, "%2s");
23   "print(what, \"%2l\")";
24   print(what, "%2l");
25   "print(what, \"%t\")";
26   print(what, "%t");
27}
28
29list l = 1, 2;
30MyPrint(l);
31
32list ll;
33MyPrint(ll);
34
35l = l + ll;
36MyPrint(l);
37
38l = insert(l, ll);
39MyPrint(l);
40
41l[10] = 5;
42
43string(l);
44MyPrint(l);
45
46l[3] = intvec(1,2,3);
47l[4] = "hi";
48MyPrint(l);
49
50l[6] = list("ho", "he");
51MyPrint(l);
52
53l[8] = MyPrint;
54MyPrint(l);
55
56link li = "/tmp";
57l[8] = li;
58MyPrint(l);
59
60ring r;
61MyPrint(r);
62
63ideal i;
64MyPrint(i);
65 
66number n = 12345;
67MyPrint(n);
68 
69vector v = [x+1, y];
70MyPrint(v);
71 
72poly p = x2+y3+n;
73MyPrint(p);
74
75l[8] = r;
76l[9] = i;
77l[7] = n;
78// l[1] = v;
79l[5] = p;
80MyPrint(l);
81
82matrix ma[2][2] = x,y,z,x2;
83MyPrint(ma);
84
85module m=[1,y],[0,x+z];
86MyPrint(m);
87
88l[1]= list(ma, m);
89MyPrint(l);
90
91intmat M=betti(mres(m,0));
92MyPrint(M);
93print(M,"betti");
94print(M, "%b");
95l[2] = M;
96MyPrint(l);
97 
98ideal j = z2,x;
99resolution re = res(j,0);
100MyPrint(re);
101l[11] = re;
102MyPrint(re);
103
104matrix B(1..3);
105B(1)[1,1] = 1;
106B(2)[1,1] = 2;
107B(3)[1,1] = 3;
108
109B(1..3);
110print(B(1..3));
111string(B(1..3));
112
113qring qr = std(ideal(x,y));
114MyPrint(qr);
115
116list l = 1, qr, list(2, qr);
117MyPrint(l);
118
119
120map phi = r, maxideal(2);
121MyPrint(phi);
122
123l[5] = phi;
124MyPrint(l);
125
126example sprintf;
127example printf;
128example fprintf;
129
130tst_status(1);$
131
Note: See TracBrowser for help on using the repository browser.