СС
Ты же пользуешь коре внутри
погоди... не понял
Size: a a a
СС
Ты же пользуешь коре внутри
СС
#(.pow (biginteger %) exp))ты об этом что ли?
ST
Ты же пользуешь коре внутри
num->list
и calc-armstrong
и написал «один метод» armstrong?
с их использованиемST
СС
СС
СС
ST
(defn numlist [num]
(loop [n num
result nil]
(if (pos? n)
(let [x (rem n 10)]
(recur (quot n 10) (conj result x)))
result)))
(defn formula [numlist]
(transduce (map #(.pow (biginteger %) (count numlist)))
+
numlist))
(defn armstrong? [num]
(= num (formula (numlist num))))
СС
СС
ST
СС
ST
YI
AG
YI
СС
СС
YI