blob: e9915e1b9088b6f05dcd1ce76d9bfa39643c0284 (
plain)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
// 09.10.21
function Out=Makeliststr(L)
Out='list(';
for I=1:length(L)
Dt=L(I);
if type(Dt)==1
if length(Dt)==1
Dts=string(Dt);
else
Dts='[';
for J=1:size(Dt,1)
for K=1:size(Dt,2)
Dts=Dts+string(Dt(J,K));
if K<size(Dt,2)
Dts=Dts+',';
end;
end;
if J<size(Dt,1)
Dts=Dts+';';
else
Dts=Dts+']';
end;
end;
end;
end;
if type(Dt)==10
Dts=Prime()+Dt+Prime();
end;
if type(Dt)==15
Dts=Makeliststr(Dt);
end;
Out=Out+Dts;
if I<length(L)
Out=Out+',';
else
Out=Out+')';
end;
end;
endfunction;
|