 
 (defn evaluate
   [network]
- (classify network \j)
- (classify network \k)
- (net/evaluate network training-data training-labels)
-  )
+  (do
+    (classify network \j)
+    (classify network \k)
+    (classify network \a)
+    (classify network \q)
+    (net/evaluate network training-data training-labels)))
 
 
 (defn train-and-evaluate

  )


(defn test-train-step
  []
  (net/train-step (first training-data) (first training-labels) (create-network) loss-fn))

(defn train
  []

       clojure.string/join
       (Integer/parseInt 2)))


(def training-data (into [] (for [k (keys scrabble-values)] (char->bit-array k))))

;; convert the "labels" of the scrabble pieces (scores) into floating-point bit-arrays
(def training-labels (into [] (for [v (vals scrabble-values)] (num->bit-array v))))

