 
 ;;54 Partition a Sequence
 #(loop [xs %2  res []]
-   (if (>= (count xs) % )
+   (if (>= (count xs) %)
      (recur (drop % xs) (conj res (take % xs)))
      res))
 

       (let [repeatv (comp vec repeat)]
         (repeatv size (repeatv size " "))))]

     (fn f [base limit]
       (let [squars (apply str (sq base limit))
             len (int (Math/ceil (Math/sqrt (count squars))))
             padded-squars (pad squars (* len len) \*)
             start (int (Math/ceil (/ len 2)))
             board (create-board (+ len (dec len)))
             coords (map #(vector % %2) padded-squars (path [start start] len))]
         (->>
          (reduce (fn [m [sym coord]] (assoc-in m coord sym))
                  board
                  coords)
          (map #(apply str %))))))

;;140 Veitch, Please!
(letfn

  (let [m* (fn [n m] (map #(* % n) m))
        l+ (fn [p l] (map #(map + p %) l))
        seed [[0 1] [1 0] [1 1] [-1 1]]
        mult [-2 -1 1 2]
        delta (map (fn [l] (map #(m* % l) mult)) seed)
        lines (fn [p] (map #(l+ p %) delta))
        check-ln (fn [ln] (filter identity (map #(get-in xo %) ln)))
