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