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