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

3 lines
62 B
Plaintext

(#~ is_perfect_rational"0) (* <:@+:) 2^i.10x
6 28 496 8128