aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

37
Task/Display-a-linear-combination/XPL0/display-a-linear-combination.xpl0 Normal file
View file

@ -0,0 +1,37 @@
func LinearCombo(Combo, Len); \Display linear combination of Combo
int Combo, Len;
int Zero, N, I;
[Zero:= true;
for I:= 0 to Len-1 do
[N:= Combo(I);
if N # 0 then
[ if N < 0 and Zero then Text(0, "-")
else if N < 0 then Text(0, " - ")
else if not Zero then Text(0, " + ");
if abs(N) # 1 then
[IntOut(0, abs(N)); Text(0, "*")];
Text(0, "e("); IntOut(0, I+1); Text(0, ")");
Zero:= false;
];
];
if Zero then Text(0, "0");
CrLf(0);
];
int Combos, C;
[Combos:= [
[1, 2, 3],
[0, 1, 2, 3],
[1, 0, 3, 4],
[1, 2, 0],
[0, 0, 0],
[0],
[1, 1, 1],
[-1, -1, -1],
[-1, -2, 0, -3],
[-1],
[0] \sentinel provides length of last item (=1)
];
for C:= 0 to 10-1 do
LinearCombo( Combos(C), (Combos(C+1)-Combos(C))/4 ); \4 = SizeOfInt
]