0votos

Nùmero Smith en Clojure

por josejuan hace 3 años

.

Diseñar un algoritmo que al ingresar un nùmero, devuelva una "cadena" que indique si el nùmero es Smith o no.

1
2
3
4
5
(require '[com.hypirion.primes :as primes]) 
 
(defn smith? [n] 
  (let [sumDigits (fn [n] (reduce #(+ %1 (Character/digit %2 10)) 0 (str n)))] 
   (= (sumDigits n) (reduce #(+ %1 (sumDigits %2)) 0 (primes/factorize n))))) 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.