3 lines
81 B
Text
3 lines
81 B
Text
|
factors=: */&>@{@((^ i.@>:)&.>/)@q:~&__
|
||
|
|
is_perfect_rational=: 2= +/@:%@,@factors
|