mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Arithmetic-Rational/J/arithmetic-rational-8.j

3 lines
81 B
Plaintext
Raw Permalink Blame History

factors=: */&>@{@((^ i.@>:)&.>/)@q:~&__
is_perfect_rational=: 2= +/@:%@,@factors
Reference in New Issue View Git Blame Copy Permalink