Improve Anagrams responsiveness a bit

Kazark · Nov 21, 2014 · 2e8aeca · 2e8aeca
1 parent f1220f7
commit 2e8aeca
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/Anagrams/Anagrams.Specs.Unit/AnagramsUnitSpecs.fs b/Anagrams/Anagrams.Specs.Unit/AnagramsUnitSpecs.fs
@@ -11,6 +11,7 @@ let specs =
                 AnagramList.empty
                 |> AnagramList.add "foo"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "foo")
         ]
         context "when I add 'foo' and 'bar'" [
@@ -19,6 +20,7 @@ let specs =
                 |> AnagramList.add "foo"
                 |> AnagramList.add "bar"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "bar\nfoo")
         ]
         context "when I add 'dog' and 'god'" [
@@ -27,6 +29,7 @@ let specs =
                 |> AnagramList.add "dog"
                 |> AnagramList.add "god"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "dog god")
         ]
         context "when I add a variety of words, some of which are anagrams of each other" [
@@ -39,13 +42,15 @@ let specs =
                 |> AnagramList.add "no"
                 |> AnagramList.add "on"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "bar\ndog god\nfoo\nno on")
         ]
         context "when I stream in lines, each of which has a word on it" [
             it "should find the anagrams" <| fun _ ->
                 let input = "boaster\nboaters\nborates\nenlist\ninlets\nkinship\nlisten\npinkish"
                 input.Split [|'\n'|]
                 |> AnagramList.findAnagrams
+                |> String.concat "\n"
                 |> should (equal "boaster boaters borates\nenlist inlets listen\nkinship pinkish")
         ]
     ]

diff --git a/Anagrams/Anagrams/Anagrams.fs b/Anagrams/Anagrams/Anagrams.fs
@@ -25,7 +25,6 @@ module AnagramList =
             Seq.sort anagrams |> String.concat " "
         listsOfAnagrams 
         |> Seq.map formatLine
-        |> String.concat "\n"
 
     let findAnagrams lines =
         lines

diff --git a/Anagrams/Anagrams/Program.fs b/Anagrams/Anagrams/Program.fs
@@ -11,5 +11,7 @@ module Main =
 
     [<EntryPoint>]
     let main _ = 
-        linesFromStdin() |> AnagramList.findAnagrams |> Console.Write
-        0
+        let anagrams = linesFromStdin() |> AnagramList.findAnagrams
+        for line in anagrams do
+            Console.WriteLine line
+        0