Rosetta Code

Reduced row echelon form: Difference between revisions

Page Discussion

Reduced row echelon form (view source)

Revision as of 04:21, 13 May 2019

94 bytes removed ,  5 years ago
→‎{{header|Aime}}
Line 393:
 
=={{header|Aime}}==
<lang aime>voidrref(list l, integer rows, columns)
rref(list l, integer rows, integer columns)
{
integer e, f, i, j, lead, r;
list u, v;
 
lead = r = 0;
while (r < rows && lead < columns) {▼
r = 0;
▲ while (r < rows) {
if (columns <= lead) {
break;
}
 
i = r;
while (!l_q_list(l, .q_list(i)[lead]) {
i += 1;
if (i == rows) {
Line 446 ⟶ 440:
}
 
void
display_2(list l)
{
for (, list u; in l) {
 
for (, u in l) {
u.ucall(o_winteger, -1, 4);
o_byte('\n');
Line 457 ⟶ 448:
}
 
integer
main(void)
{
Line 468 ⟶ 458:
display_2(l);
 
return 0;
}</lang>
{{Out}}
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/96052"