Anonymous user
Chinese remainder theorem: Difference between revisions
no edit summary
(add RPL) |
imported>Maxima enthusiast No edit summary |
||
Line 2,053:
<syntaxhighlight lang="matlab">>> chineseRemainder([2 3 2], [3 5 7])
ans = 23</syntaxhighlight>
=={{header|Maxima}}==
<syntaxhighlight lang="maxima">
c_remainder(A,N):=block(
cn:apply("*",N),
makelist(gcdex(cn/N[i],N[i]),i,1,length(N)),
makelist(A[i]*%%[i][1]*cn/N[i],i,1,length(N)),
apply("+",%%),mod(%%,cn))$
Alis:[2,3,2]$
Nlis:[3,5,7]$
c_remainder(Alis,Nlis);
</syntaxhighlight>
{{out}}
<pre>
23
</pre>
=={{header|Modula-2}}==
<syntaxhighlight lang="modula2">MODULE CRT;
| |||