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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Reduced-row-echelon-form/Aime/reduced-row-echelon-form.aime
View file

@ -28,7 +28,7 @@ rref(list l, integer rows, integer columns)
u = l[i];
l_spin(l, i, r);
l.spin(i, r);
e = u[lead];
if (e) {
for (j, f in u) {
@ -40,7 +40,7 @@ rref(list l, integer rows, integer columns)
if (i != r) {
e = v[lead];
for (j, f in v) {
v[j] = f - l_q_integer(u, j) * e;
v[j] = f - u[j] * e;
}
}
}
@ -52,14 +52,12 @@ rref(list l, integer rows, integer columns)
}
void
display_2(list l, integer rows, integer columns)
display_2(list l)
{
integer i;
list u;
i = 0;
for (i, u in l) {
l_ucall(u, o_winteger, -1, 4);
for (, u in l) {
u.ucall(o_winteger, -1, 4);
o_byte('\n');
}
}
@ -69,11 +67,11 @@ main(void)
{
list l;
l = l_effect(l_effect(1, 2, -1, -4),
l_effect(2, 3, -1, -11),
l_effect(-2, 0, -3, 22));
l = list(list(1, 2, -1, -4),
list(2, 3, -1, -11),
list(-2, 0, -3, 22));
rref(l, 3, 4);
display_2(l, 3, 4);
display_2(l);
return 0;
}