RosettaCodeData/Task/Arithmetic-Rational/J/arithmetic-rational-9.j

5 lines
102 B
Plaintext

I.is_perfect_rational@"0 i.2^19
6 28 496 8128
I.is_perfect_rational@x:@"0 i.2^19x
6 28 496 8128