(ns perfect-numbers) (defn classify [num] (let [aliquot (reduce + (filter #(= 0 (mod num %)) (range 1 num)))] (condp #(and (%1 %2 num) (pos?
確定! 回上一頁