3 lines
84 B
Text
3 lines
84 B
Text
|
factors=: {{ */@>,{(^ [:i.1+])&.>/__ q:y}}
|
||
|
|
isArith=: {{ (= <.) (+/%#) factors|y}}"0
|