Name: Anonymous 2012-01-21 6:59
How come it isn't used outside of academia?
(defn dubz? [d]
(>=
(count (filter
(fn equal-parts? [n]
(= 1 (count (distinct (partition n (str d))))))
(rest
((fn factorize [n]
(map
#(/ n %)
(filter #(zero? (rem n %)) (range 1 (+ n 1)))))
(count (str d))))))
1))
(dubz? 1)
=> false
(dubz? 11)
=> true
(dubz? 123)
=> false
(dubz? 123123)
=> true
(dubz? 'dubzdubzdubz)
=> true