Two more bit array things

google · May 9, 2020 · f592e23 · f592e23
1 parent 42fc20a
commit f592e23
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/koans-solved/arrays.lisp b/koans-solved/arrays.lisp
@@ -67,4 +67,6 @@
     (dotimes (i (* 2 2 2 2))
       (setf (row-major-aref my-array i) i))
     (assert-equal 0 (aref my-array 0 0 0 0))
+    (assert-equal 2 (aref my-array 0 0 1 0))
+    (assert-equal 4 (aref my-array 0 1 0 0))
     (assert-equal 15 (aref my-array 1 1 1 1))))
diff --git a/koans/arrays.lisp b/koans/arrays.lisp
@@ -67,4 +67,6 @@
     (dotimes (i (* 2 2 2 2))
       (setf (row-major-aref my-array i) i))
     (assert-equal ____ (aref my-array 0 0 0 0))
+    (assert-equal ____ (aref my-array 0 0 1 0))
+    (assert-equal ____ (aref my-array 0 1 0 0))
     (assert-equal ____ (aref my-array 1 1 1 1))))