Contents

;;; perfect-numbers.el --- perfect-numbers Exercise (exercism)

;;; Commentary:

;;; Code:

(require 'cl)


(defun divisors (n)
  (cl-loop for i from 1 to (truncate (sqrt n))
           if (= (% n i) 0) collect i
           and if (not (= i (/ n i))) collect (/ n i)))


(defun sum-divisors (n)
  ;; Remove n from the list and add'em up.
  (apply '+ (cdr (sort (divisors n) '>))))


(defun perfect-numbers (n)
  (cl-loop for i from 2 to n by 2
           when (= i (sum-divisors i))
           collect i))


(provide 'perfect-numbers)
;;; perfect-numbers.el ends here

Version data entries

395 entries across 395 versions & 1 rubygems

Version	Path
trackler-2.0.0.5	tracks/elisp/exercises/perfect-numbers/example.el
trackler-2.0.0.4	tracks/elisp/exercises/perfect-numbers/example.el
trackler-2.0.0.3	tracks/elisp/exercises/perfect-numbers/example.el
trackler-2.0.0.2	tracks/elisp/exercises/perfect-numbers/example.el
trackler-2.0.0.1	tracks/elisp/exercises/perfect-numbers/example.el
trackler-2.0.0.0	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.4.1	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.4.0	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.3.0	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.2.1	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.2.0	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.1.2	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.1.1	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.1.0	tracks/elisp/exercises/perfect-numbers/example.el
trackler-1.0.0.1	tracks/elisp/exercises/perfect-numbers/example.el