   (:use [clj-tuple]
         [clojure.core.matrix :only [dot zero-vector]]
         [neuseg.db]
-        [com.guokr.nlp.seg]
-        [clojure.string :only [join]])
+        [com.guokr.nlp.seg])
   (:import (com.guokr.neuseg.util NGram
                                   NeighborSlider)))
 

          (recur (rest raw) (nthrest sgd 2) (conj ret 1 1)))))))

(defn gen-case [text]
  (map tformat (zip (map ndot (NeighborSlider. 4 (get-vector " ") (map get-vector (iterator-seq (NGram/unigram text)))))
                    (map ndot (NeighborSlider. 4 (get-vector "  ") (map get-vector (iterator-seq (NGram/bigram text)))))
                    (map ndot (NeighborSlider. 4 (get-vector "   ") (map get-vector (iterator-seq (NGram/trigram text)))))
                    (map ndot (NeighborSlider. 4 (get-vector "    ") (map get-vector (iterator-seq (NGram/quadgram text)))))
                    (partition 2 (tagging text)))))

    (map (partial dot mid-vec) (concat (take mid vecs) (drop (inc mid) vecs)))))

(defn- zip [& colls]
  (map flatten (partition (count colls) (apply interleave colls))))

(defn- tformat [coll]
  (clojure.string/join "\n" (map (partial clojure.string/join " ") (split-at 32 coll))))

(defn tagging [text]
  (let [seged (seg text)]
