1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36  (ns primefactorstest
(:require [clojure.test :refer [deftest is]]
primefactors))
(deftest one
(is (= [] (primefactors/of 1))))
(deftest two
(is (= [2] (primefactors/of 2))))
(deftest three
(is (= [3] (primefactors/of 3))))
(deftest four
(is (= [2, 2] (primefactors/of 4))))
(deftest six
(is (= [2, 3] (primefactors/of 6))))
(deftest eight
(is (= [2, 2, 2] (primefactors/of 8))))
(deftest nine
(is (= [3, 3] (primefactors/of 9))))
(deftest twentyseven
(is (= [3, 3, 3] (primefactors/of 27))))
(deftest sixhundredtwentyfive
(is (= [5, 5, 5, 5] (primefactors/of 625))))
(deftest alargenumber
(is (= [5, 17, 23, 461] (primefactors/of 901255))))
(deftest ahugenumber
(is (= [11, 9539, 894119] (primefactors/of 93819012551))))
