Add the existing filesHEADmain

This is a program that takes a list of words, then finds which phrases
when read in a circle shape contain only english words when split in a
certain way.

1 files changed, 7 insertions, 0 deletions

diff --git a/formatDictionary.hs b/formatDictionary.hs
new file mode 100755
index 0000000..77e7d7c
--- /dev/null
+++ b/formatDictionary.hs
@@ -0,0 +1,7 @@
+import Data.List
+import Data.Char
+import qualified Data.Set as Set
+import System.Environment
+main = do dict <- getContents
+          let formattedDict = Set.toList . Set.fromList $ "a":"i":[map toLower words | words <- lines dict, length words > 1]
+          putStr (unlines formattedDict)