simon/sparse-array
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added conversion functions; wrote documentation.

Browse source
This commit is contained in:
Simon Brooke 2019-06-24 11:58:23 +01:00
parent 9c60d925d6
commit b3f6591e4b
4 changed files with 214 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test/sparse_array/core_test.clj
View file

@ -65,3 +65,28 @@
sparse (dense-to-sparse dense)]
(is (= "hello" (get sparse 3)))
(is (= "goodbye" (get sparse 5))))))
(deftest dense-dimensions-tests
(testing "dense-dimensions"
(is (= 0 (dense-dimensions 1)))
(is (= 1 (dense-dimensions [1 2 3])))
(is (= 2 (dense-dimensions [[1 2 3][2 4 6][3 6 9]])))
(is (= 3
(dense-dimensions
[[[1 2 3][2 4 6][3 6 9]]
[[2 4 6][4 16 36][6 12 18]]
[[3 6 9][18 96 (* 6 36 3)][100 200 300]]])))))
(deftest sparse-to-dense-tests
(testing "Conversion from sparse to dense arrays"
(let [expected [[nil nil nil nil nil]
[nil nil nil nil nil]
[nil nil nil nil nil]
[nil nil nil nil "hello"]
[nil nil nil "goodbye" nil]]
actual (sparse-to-dense (put
(put
(make-sparse-array :x :y)
"hello" 3 4)
"goodbye" 4 3))]
(is (= actual expected)))))