ST
Сергей Суржик
что показывать?
(defn armstrong? [num] )и вперед
ответ булевский?
Size: a a a
2020 January 08
СС
да. сравнивает аргумент и результат
ST
Сергей Суржик
да. сравнивает аргумент и результат
а это точно правильно
непонятно, из чего это вытекает
exp (count (str num))?непонятно, из чего это вытекает
СС
надо знать в какую степень возводить
СС
в данной задаче степень равна длине числа
СС
12345 = 5
2020 January 09
СС
153 = 3
ST
Сергей Суржик
надо знать в какую степень возводить
ну, а почему именно число цифр?
по условию задачи так?
по условию задачи так?
СС
нет
СС
я определил степень числа так)
СС
а есть варианты?)
СС
но на это как ни странно не ругались)
ST
Сергей Суржик
а есть варианты?)
конечно
из вики
число 242423 для степени 5
число 243 для степени 6
не вижу связи между степенью и числом цифр
из вики
число 242423 для степени 5
число 243 для степени 6
не вижу связи между степенью и числом цифр
ST
сорри, это была база
ST
конечно
из вики
число 242423 для степени 5
число 243 для степени 6
не вижу связи между степенью и числом цифр
из вики
число 242423 для степени 5
число 243 для степени 6
не вижу связи между степенью и числом цифр
я понял, недочитал определение на вики
СС
можно и список потом count
СС
но этому не придали значения
ST
Сергей Суржик
основной метод принимает один аргумент
(defn exponents
[n]
(into {}
(map (juxt (comp first str) #(.pow (biginteger %) n)))
(range 10)))
(defn armstrong?
[x]
(let [s (str x)
n (count s)
x' (transduce (map (exponents n)) + s)]
(= x x')))
ST
(armstrong? 115132219018763992565095597973971522401)
=> true
(criterium/quick-bench
(armstrong? 115132219018763992565095597973971522401))
Evaluation count : 46902 in 6 samples of 7817 calls.
Execution time mean : 13,132000 µs
Execution time std-deviation : 410,042927 ns
Execution time lower quantile : 12,702894 µs ( 2,5%)
Execution time upper quantile : 13,668062 µs (97,5%)
Overhead used : 1,800560 ns
=> nil
СС
варинт со строками будет жрать больше?)