Implement correct

Chouser · Chouser · commit cb22f0a3c9ba · 2013-07-09T10:27:22.000-04:00
diff --git a/back5/src/back5/spell.clj b/back5/src/back5/spell.clj
@@ -51,5 +51,9 @@
           [word 1])))
 
 (defn correct [word]
-
-  )
+  (map key
+       (sort-by val
+                (merge-with max
+                            (known-edits2 word)
+                            (known [word])
+                            (edits1 word)))))
