cool about arrays and vectors

arrays have #'array-dimentions and #'array-rank (as a matrix)
and there's cool (row-major-aref my-arr index) for indexing array with
single index, going throug all elements

vectors have literal notation #(1 2 4 1),
they are one dimentional
have :element-type key in constructor, not quite sure how to use that

and we can try to #'coerce list to something else by providing symbol
for type, which we could get from (type-of my-vector)

also literal notation for byte vectors, cool #*110011001

lisp-koans/koans/vectors.lisp

@@ -19,29 +19,32 @@
 (define-test vector-basics
   ;; #(...) is syntax sugar for defining literal vectors.
   (let ((vector #(1 11 111)))
-    (true-or-false? ____ (typep vector 'vector))
-    (assert-equal ____ (aref vector 1))))
+    (true-or-false? t (typep vector 'vector))
+    (assert-equal 11 (aref vector 1))))
 
 (define-test length
   ;; The function LENGTH works both for vectors and for lists.
-  (assert-equal ____ (length '(1 2 3)))
-  (assert-equal ____ (length #(1 2 3))))
+  (assert-equal 3 (length '(1 2 3)))
+  (assert-equal 3 (length #(1 2 3))))
 
 (define-test bit-vector
   ;; #*0011 defines a bit vector literal with four elements: 0, 0, 1 and 1.
-  (assert-equal #*0011 (make-array 4 :element-type 'bit :initial-contents ____))
-  (true-or-false? ____ (typep #*1001 'bit-vector))
-  (assert-equal ____ (aref #*1001 1)))
+    (assert-equal #*0011 (make-array 4 :element-type 'bit :initial-contents '(0 0 1 1 )))
+  (true-or-false? t (typep #*1001 'bit-vector))
+  (assert-equal 0 (aref #*1001 1)))
 
 (define-test bitwise-operations
   ;; Lisp defines a few bitwise operations that work on bit vectors.
-  (assert-equal ____ (bit-and #*1100 #*1010))
-  (assert-equal ____ (bit-ior #*1100 #*1010))
-  (assert-equal ____ (bit-xor #*1100 #*1010)))
+  (assert-equal #*1000 (bit-and #*1100 #*1010))
+  (assert-equal #*1110 (bit-ior #*1100 #*1010)) ; use sly-documentation-lookup ; that's an INCLUSIVE-OR
+  (assert-equal #*0110 (bit-xor #*1100 #*1010))) ; that one I recognised, and EXCLUSIVE-OR
 
+(type-of #*110011)
 (defun list-to-bit-vector (list)
   ;; Implement a function that turns a list into a bit vector.
-  ____)
+  ;; (vector :element-type 'bit :initial-contents list) ; my bad solution
+  (coerce list 'bit-vector)             ; so, trying to take
+  )
 
 (define-test list-to-bit-vector
   ;; You need to fill in the blank in LIST-TO-BIT-VECTOR.