Anonymous user
Arithmetic/Rational: Difference between revisions
→{{header|J}}: Use lang tags
(→{{header|J}}: Use lang tags) |
|||
Line 674:
J implements rational numbers:
<lang j> 3r4*2r5
That said, note that J's floating point numbers work just fine for the stated problem:
<lang j> is_perfect_rational=: 2 = (1 + i.) +/@:%@([ #~ 0 = |) ]</lang>
faster version (but the problem, as stated, is still tremendously inefficient):
<lang j> factors=: ([: ~. ] */ .^"1 2: #:@i.@^ #)@q: ::]
<lang j> I.is_perfect_rational@"0 i.2^19
=={{header|Mathematica}}==
| |||