Diophantine linear system solving: Difference between revisions

=={{header|C}}==

{{trans|FreeBASIC}}

// Subject: Solution of an m x n linear Diophantine system

// A*x = b using LLL reduction.

printf("loop %ld\n", tl);

}

{{out}}

<pre>The results are exactly the same as those described in the task assignment.</pre>

=={{header|FreeBASIC}}==

'Subject: Solution of an m x n linear Diophantine system

' A*x = b using LLL reduction.

print "loop"; tl

End Sub

=={{header|Phix}}==

You can run this online [http://phix.x10.mx/p2js/LLLHnf.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Diophantine_linear_system_solving.exw

<span style="color: #0000FF;">?</span><span style="color: #008000;">"done"</span>

<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>

=={{header|Wren}}==

A reasonably faithful translation though I've made some slight changes to the way data is input.

import "./complex" for Complex

import "./trait" for Stepped

main.call(sw)

System.print()

{{out}}