Add s calc.

jclaggett · jclaggett · commit aeea76ecbe00 · 2013-07-08T15:57:58.000-04:00
diff --git a/back5/src/back5/spell.clj b/back5/src/back5/spell.clj
@@ -13,7 +13,7 @@
 (defn train [features]) ;; This is just Frequencies?
 
 (defn edits1 [word]
-  (let [s []
+  (let [s (for [i (range (inc (count word)))] (split-at i word))
         deletes []
         transposes []
         replaces []
