Chinese remainder theorem: Difference between revisions
Added Arturo implementation
(Add implementation of CRT in SQL, using SQLite 3 dialect) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 156:
Ada.Text_IO.Put_Line(Integer'Image(Sum mod Prod));
end Chin_Rema;</lang>
=={{header|Arturo}}==
<lang rebol>mulInv: function [a0, b0][
[a b x0]: @[a0 b0 0]
result: 1
if b = 1 -> return result
while [a > 1][
q: a / b
a: a % b
tmp: a
a: b
b: tmp
result: result - q * x0
tmp: x0
x0: result
result: tmp
]
if result < 0 -> result: result + b0
return result
]
chineseRemainder: function [N, A][
prod: 1
s: 0
loop N 'x -> prod: prod * x
loop.with:'i N 'x [
p: prod / x
s: s + (mulInv p x) * p * A\[i]
]
return s % prod
]
print chineseRemainder [3 5 7] [2 3 2]</lang>
{{out}}
<pre>23</pre>
=={{header|AWK}}==
| |||