From 75a90aa9442e75845843e9ad9a06178ed003d357 Mon Sep 17 00:00:00 2001 From: "Raymond E. Hogenson" Date: Tue, 29 Sep 2015 14:15:32 -0800 Subject: Add the existing files 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. --- formatDictionary.hs | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100755 formatDictionary.hs (limited to 'formatDictionary.hs') 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) -- cgit v1.3.1