trackler 2.2.1.77 → 2.2.1.78

data/tracks/clojure/exercises/{two-fer → say}/project.clj

@@ -1,4 +1,4 @@
-(defproject two-fer "0.1.0-SNAPSHOT"
-  :description "two-fer exercise."
-  :url "https://github.com/exercism/clojure/tree/master/exercises/two-fer"
+(defproject say "0.1.0-SNAPSHOT"
+  :description "say exercise."
+  :url "https://github.com/exercism/clojure/tree/master/exercises/say"
   :dependencies [[org.clojure/clojure "1.8.0"]])

data/tracks/clojure/exercises/say/src/example.clj

@@ -0,0 +1,9 @@
+(ns say
+    (:require [clojure.pprint :as pp]
+              [clojure.string :as s]))
+
+(defn number [input]
+  (if
+    (or (< input 0) (> input 999999999999))
+    (throw (IllegalArgumentException. "Out of range"))
+    (s/replace (pp/cl-format nil "~R" input) #"," "")))

data/tracks/clojure/exercises/say/src/say.clj

@@ -0,0 +1,5 @@
+(ns say)
+
+(defn number [] ;; <- arglist goes here
+  ;; your code goes here
+)

data/tracks/clojure/exercises/say/test/say_test.clj

@@ -0,0 +1,48 @@
+(ns say-test
+  (:require [clojure.test :refer [deftest is]]
+            say))
+
+(deftest zero-test
+  (is (= "zero" (say/number 0))))
+
+(deftest one-test
+  (is (= "one" (say/number 1))))
+
+(deftest fourteen-test
+  (is (= "fourteen" (say/number 14))))
+
+(deftest twenty-test
+  (is (= "twenty" (say/number 20))))
+
+(deftest twenty-two-test
+  (is (= "twenty-two" (say/number 22))))
+
+(deftest one-hundred-test
+  (is (= "one hundred" (say/number 100))))
+
+(deftest one-hundred-twenty-three-test
+  (is (= "one hundred twenty-three" (say/number 123))))
+
+(deftest one-thousand-test
+  (is (= "one thousand" (say/number 1000))))
+
+(deftest one-thousand-two-hundred-thirty-four-test
+  (is (= "one thousand two hundred thirty-four" (say/number 1234))))
+
+(deftest one-million-test
+  (is (= "one million" (say/number 1000000))))
+
+(deftest one-million-two-thousand-three-hundred-forty-five-test
+  (is (= "one million two thousand three hundred forty-five" (say/number 1002345))))
+
+(deftest one-billion-test
+  (is (= "one billion" (say/number 1000000000))))
+
+(deftest a-big-number-test
+  (is (= "nine hundred eighty-seven billion six hundred fifty-four million three hundred twenty-one thousand one hundred twenty-three" (say/number 987654321123))))
+
+(deftest below-zero-is-out-of-range-test
+  (is (thrown? IllegalArgumentException (say/number -1))))
+
+(deftest numbers-above-999999999999-out-of-range-test
+  (is (thrown? IllegalArgumentException (say/number 1000000000000))))

data/tracks/coffeescript/docs/ABOUT.md

@@ -1,14 +1,9 @@
 JavaScript is a great language, but not everyone likes writing in it. Thus, people and organizations have started to write languages that transpile (transpiling keeps the same level of abstraction, compiling decreases the level of abstraction) into JavaScript, that they feel are nicer to write in than JavaScript. CoffeeScript is one example, another is Microsoft's TypeScript.
 
-What are the specific advantages of CoffeeScript? From [coffeescript.org](http://www.coffeescript.org):
+CoffeeScript is a little language that compiles into JavaScript. Underneath that awkward Java-esque patina, JavaScript has always had a gorgeous heart. CoffeeScript is an attempt to expose the good parts of JavaScript in a simple way.
 
-> CoffeeScript is a little language that compiles into JavaScript. Underneath that awkward Java-esque patina,
-> JavaScript has always had a gorgeous heart. CoffeeScript is an attempt to expose the good parts of JavaScript
-> in a simple way.
->
-> The golden rule of CoffeeScript is: "It's just JavaScript". The code compiles one-to-one into the equivalent JS,
-> and there is no interpretation at runtime. You can use any existing JavaScript library seamlessly from CoffeeScript
-> (and vice-versa). The compiled output is readable and pretty-printed, will work in every JavaScript runtime, and tends
-> to run as fast or faster than the equivalent handwritten JavaScript.
+The golden rule of CoffeeScript is: "It's just JavaScript". The code compiles one-to-one into the equivalent JS, and there is no interpretation at runtime. You can use any existing JavaScript library seamlessly from CoffeeScript (and vice-versa). The compiled output is readable and pretty-printed, will work in every JavaScript runtime, and tends to run as fast or faster than the equivalent handwritten JavaScript.
 
 You should learn CoffeeScript if you like programming in JavaScript, and want to experiment with a different way to write it. With transpiled versions of JavaScript (ECMA 2015, TypeScript, etc) becoming more popular, this is a valuable skill for a coder.
+
+_(Info taken from [coffeescript.org](http://www.coffeescript.org))_

data/tracks/coffeescript/docs/INSTALLATION.md

@@ -7,13 +7,13 @@
 Install `jasmine-node` and `coffee`:
 
 ```bash
-$ npm install jasmine-node coffee -g
+$ npm install jasmine-node coffeescript -g
 ```
 
 Depending on your setup, you may need super user privileges to install an `npm` module globally. This is the case if you've used the official installer linked to above. If NPM gives you an error saying you don't have access, add `sudo` to the command above:
 
 ```bash
-$ sudo npm install jasmine-node coffee -g
+$ sudo npm install jasmine-node coffeescript -g
 ```
 
 If you've used the official installer, your `PATH` should have been automatically configured, but if your shell has trouble locating your globally installed modules--or if you build Node.js from source--update your `PATH` to include the `npm` binaries by adding the following to either `~/.bash_profile` or `~/.zshrc`:

data/tracks/erlang/exercises/pangram/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.1"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/pangram/src/example.erl

@@ -3,9 +3,8 @@
 -export([is_pangram/1, test_version/0]).
 
 is_pangram(Sentence) ->
-    Alpha = "abcdefghijklmnopqrstuvwxyz",
-    Lower = string:to_lower(Sentence),
+    Lewand = "zqxjkvbpygfwmucldrhsnioate",      % least common letter first, most common last
 
-    lists:all(fun (A) -> lists:any(fun (L) -> A == L end, Lower) end, Alpha).
+    lists:all(fun (A) -> lists:any(fun (L) -> A == string:to_lower(L) end, Sentence) end, Lewand).
 
 test_version() -> 1.

data/tracks/erlang/exercises/pangram/test/pangram_tests.erl

@@ -1,38 +1,37 @@
 -module(pangram_tests).
 
--define(TESTED_MODULE, (sut(pangram))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 
 % test cases adapted from `x-common//canonical-data.json` @ version: 1.3.0
 
 empty_sentence_test() ->
-    ?assertNot(?TESTED_MODULE:is_pangram("")).
+    ?assertNot(pangram:is_pangram("")).
 
 perfect_lower_case_pangram_test() ->
-    ?assert(?TESTED_MODULE:is_pangram("abcdefghijklmnopqrstuvwxyz")).
+    ?assert(pangram:is_pangram("abcdefghijklmnopqrstuvwxyz")).
 
 pangram_with_only_lower_case_test() ->
-    ?assert(?TESTED_MODULE:is_pangram("the quick brown fox jumps over the lazy dog")).
+    ?assert(pangram:is_pangram("the quick brown fox jumps over the lazy dog")).
 
 missing_character_x_test() ->
-    ?assertNot(?TESTED_MODULE:is_pangram("a quick movement of the enemy will jeopardize five gunboats")).
+    ?assertNot(pangram:is_pangram("a quick movement of the enemy will jeopardize five gunboats")).
 
 missing_character_h_test() ->
-    ?assertNot(?TESTED_MODULE:is_pangram("five boxing wizards jump quickly at it")).
+    ?assertNot(pangram:is_pangram("five boxing wizards jump quickly at it")).
 
 pangram_with_underscores_test() ->
-    ?assert(?TESTED_MODULE:is_pangram("the_quick_brown_fox_jumps_over_the_lazy_dog")).
+    ?assert(pangram:is_pangram("the_quick_brown_fox_jumps_over_the_lazy_dog")).
 
 pangram_with_numbers_test() ->
-    ?assert(?TESTED_MODULE:is_pangram("the 1 quick brown fox jumps over the 2 lazy dogs")).
+    ?assert(pangram:is_pangram("the 1 quick brown fox jumps over the 2 lazy dogs")).
 
 missing_letters_replaced_by_numbers_test() ->
-    ?assertNot(?TESTED_MODULE:is_pangram("7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog")).
+    ?assertNot(pangram:is_pangram("7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog")).
 
 pangram_with_mixed_case_and_punctuation_test() ->
-    ?assert(?TESTED_MODULE:is_pangram("\"Five quacking Zephyrs jolt my wax bed.\"")).
+    ?assert(pangram:is_pangram("\"Five quacking Zephyrs jolt my wax bed.\"")).
 
 upper_and_lower_case_characters_are_not_counted_separately_test() ->
-    ?assertNot(?TESTED_MODULE:is_pangram("the quick brown fox jumps over with lazy FX")).
+    ?assertNot(pangram:is_pangram("the quick brown fox jumps over with lazy FX")).

data/tracks/fsharp/exercises/grep/Example.fs

@@ -15,7 +15,7 @@ type Flags =
     | Invert           = 8
     | MatchEntireLines = 16
 
-let parseFlag =
+let private parseFlag =
     function
     | "-n" -> Flags.PrintLineNumbers
     | "-l" -> Flags.PrintFileNames
@@ -24,20 +24,19 @@ let parseFlag =
     | "-x" -> Flags.MatchEntireLines
     | _    -> Flags.None
 
-let parseFlags (flags: string) =
-    flags.Split ' '
-    |> Array.fold (fun acc flag -> acc ||| parseFlag flag) Flags.None    
+let private parseFlags (flags: string list) =
+    List.fold (fun acc flag -> acc ||| parseFlag flag) Flags.None flags 
 
-let isMatch pattern (flags: Flags) =
+let private isMatch pattern (flags: Flags) =
     let pattern' = if flags.HasFlag Flags.MatchEntireLines then sprintf "^%s$" pattern else pattern
     let options  = if flags.HasFlag Flags.CaseInsensitive then RegexOptions.IgnoreCase else RegexOptions.None
     let regex = Regex(pattern', options)     
 
     fun text -> regex.IsMatch text <> flags.HasFlag Flags.Invert
 
-let mkLine file index text = { File = file; Number = index + 1; Text = text }
+let private mkLine file index text = { File = file; Number = index + 1; Text = text }
 
-let findMatchingLines pattern flags file  = 
+let private findMatchingLines pattern flags file  = 
     let lineMatches line = isMatch pattern flags line.Text
     
     file
@@ -45,36 +44,33 @@ let findMatchingLines pattern flags file  =
     |> Seq.mapi (mkLine file)
     |> Seq.filter lineMatches    
 
-let formatMatchingFile file = sprintf "%s\n" file
-
-let formatMatchingFiles pattern  (flags: Flags) files  =    
+let private formatMatchingFiles pattern  (flags: Flags) files  =    
     let hasMatchingLine file = findMatchingLines pattern flags file |> Seq.isEmpty |> not
 
     files  
     |> Seq.filter hasMatchingLine
-    |> Seq.map formatMatchingFile
-    |> String.Concat
+    |> Seq.toList
 
-let formatMatchingLine (flags: Flags) files line =   
+let private formatMatchingLine (flags: Flags) files line =   
     let printLineNumbers = flags.HasFlag Flags.PrintLineNumbers
     let printFileName = List.length files > 1
 
     match printLineNumbers, printFileName with
-    | true,  true  -> sprintf "%s:%i:%s\n" line.File line.Number line.Text
-    | true,  false -> sprintf    "%i:%s\n" line.Number line.Text
-    | false, true  -> sprintf    "%s:%s\n" line.File line.Text
-    | false, false -> sprintf       "%s\n" line.Text
+    | true,  true  -> sprintf "%s:%i:%s" line.File line.Number line.Text
+    | true,  false -> sprintf    "%i:%s" line.Number line.Text
+    | false, true  -> sprintf    "%s:%s" line.File line.Text
+    | false, false -> sprintf       "%s" line.Text
 
-let formatMatchingLines pattern (flags: Flags) files = 
+let private formatMatchingLines pattern (flags: Flags) files = 
     let lineMatches = findMatchingLines pattern flags
     let formatLine = formatMatchingLine flags files
 
     files  
     |> Seq.collect lineMatches
     |> Seq.map formatLine
-    |> String.Concat
+    |> Seq.toList
 
-let grep pattern flagArguments files =
+let grep files flagArguments pattern =
     let flags = parseFlags flagArguments
 
     match flags.HasFlag Flags.PrintFileNames with

data/tracks/fsharp/exercises/grep/GrepTest.fs

@@ -1,12 +1,13 @@
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
 module GrepTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
+open System.IO
 
 open Grep
 
-open System.IO
-
 let iliadFileName = "iliad.txt"
 let iliadContents = 
     """Achilles sing, O Goddess! Peleus' son;
@@ -17,8 +18,7 @@ And Heroes gave (so stood the will of Jove)
 To dogs and to all ravening fowls a prey,
 When fierce dispute had separated once
 The noble Chief Achilles from the son
-Of Atreus, Agamemnon, King of men.
-"""
+Of Atreus, Agamemnon, King of men."""
 
 let midsummerNightFileName = "midsummer-night.txt"
 let midsummerNightContents = 
@@ -28,8 +28,7 @@ Nor how it may concern my modesty,
 In such a presence here to plead my thoughts;
 But I beseech your grace that I may know
 The worst that may befall me in this case,
-If I refuse to wed Demetrius.
-"""
+If I refuse to wed Demetrius."""
 
 let paradiseLostFileName = "paradise-lost.txt"
 let paradiseLostContents = 
@@ -40,335 +39,257 @@ With loss of Eden, till one greater Man
 Restore us, and regain the blissful Seat,
 Sing Heav'nly Muse, that on the secret top
 Of Oreb, or of Sinai, didst inspire
-That Shepherd, who first taught the chosen Seed
-"""
-
-type GrepFixture() =
-    do
-        Directory.SetCurrentDirectory(Path.GetTempPath());
-        File.WriteAllText(iliadFileName, iliadContents)
-        File.WriteAllText(midsummerNightFileName, midsummerNightContents)
-        File.WriteAllText(paradiseLostFileName, paradiseLostContents)
+That Shepherd, who first taught the chosen Seed"""
 
-    interface System.IDisposable with
-        member this.Dispose() =
-            File.Delete(iliadFileName)
-            File.Delete(midsummerNightFileName)
-            File.Delete(paradiseLostFileName)
+let createFiles() =
+    File.WriteAllText(iliadFileName, iliadContents)
+    File.WriteAllText(midsummerNightFileName, midsummerNightContents)
+    File.WriteAllText(paradiseLostFileName, paradiseLostContents)
 
-type GrepTest(fixture: GrepFixture) =    
-    interface IClassFixture<GrepFixture>
+type GrepTest() =
 
     [<Fact>]
     member this.``One file, one match, no flags`` () =
+        let files = ["iliad.txt"]
+        let flags = []
         let pattern = "Agamemnon"
-        let flags = ""
-        let files = [iliadFileName]
-
-        let expected = 
-            "Of Atreus, Agamemnon, King of men.\n"
+        let expected = ["Of Atreus, Agamemnon, King of men."]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, one match, print line numbers flag`` () =
+        let files = ["paradise-lost.txt"]
+        let flags = ["-n"]
         let pattern = "Forbidden"
-        let flags = "-n"
-        let files = [paradiseLostFileName]
-
-        let expected = 
-            "2:Of that Forbidden Tree, whose mortal tast\n"
+        let expected = ["2:Of that Forbidden Tree, whose mortal tast"]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, one match, case-insensitive flag`` () =
-        let pattern = "Forbidden"
-        let flags = "-i"
-        let files = [paradiseLostFileName]
-
-        let expected = 
-            "Of that Forbidden Tree, whose mortal tast\n"
+        let files = ["paradise-lost.txt"]
+        let flags = ["-i"]
+        let pattern = "FORBIDDEN"
+        let expected = ["Of that Forbidden Tree, whose mortal tast"]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, one match, print file names flag`` () =
+        let files = ["paradise-lost.txt"]
+        let flags = ["-l"]
         let pattern = "Forbidden"
-        let flags = "-l"
-        let files = [paradiseLostFileName]
-
-        let expected = 
-            sprintf "%s\n" paradiseLostFileName
+        let expected = ["paradise-lost.txt"]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, one match, match entire lines flag`` () =
+        let files = ["paradise-lost.txt"]
+        let flags = ["-x"]
         let pattern = "With loss of Eden, till one greater Man"
-        let flags = "-x"
-        let files = [paradiseLostFileName]
-
-        let expected = 
-            "With loss of Eden, till one greater Man\n"
-        
-        grep pattern flags files |> should equal expected
+        let expected = ["With loss of Eden, till one greater Man"]
         
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
+
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, one match, multiple flags`` () =
+        let files = ["iliad.txt"]
+        let flags = ["-n"; "-i"; "-x"]
         let pattern = "OF ATREUS, Agamemnon, KIng of MEN."
-        let files = [iliadFileName]
-        let flags = "-n -i -x"
-        let expected = 
-            "9:Of Atreus, Agamemnon, King of men.\n"
+        let expected = ["9:Of Atreus, Agamemnon, King of men."]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, several matches, no flags`` () =
+        let files = ["midsummer-night.txt"]
+        let flags = []
         let pattern = "may"
-        let flags = ""
-        let files = [midsummerNightFileName]
-
         let expected = 
-            "Nor how it may concern my modesty,\n" +
-            "But I beseech your grace that I may know\n" +
-            "The worst that may befall me in this case,\n"
+            [ "Nor how it may concern my modesty,";
+              "But I beseech your grace that I may know";
+              "The worst that may befall me in this case," ]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, several matches, print line numbers flag`` () =
+        let files = ["midsummer-night.txt"]
+        let flags = ["-n"]
         let pattern = "may"
-        let flags = "-n"
-        let files = [midsummerNightFileName]
-
         let expected = 
-            "3:Nor how it may concern my modesty,\n" +
-            "5:But I beseech your grace that I may know\n" +
-            "6:The worst that may befall me in this case,\n"
+            [ "3:Nor how it may concern my modesty,";
+              "5:But I beseech your grace that I may know";
+              "6:The worst that may befall me in this case," ]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, several matches, match entire lines flag`` () =
+        let files = ["midsummer-night.txt"]
+        let flags = ["-x"]
         let pattern = "may"
-        let flags = "-x"
-        let files = [midsummerNightFileName]
-
-        let expected = ""
+        let expected: string list = []
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, several matches, case-insensitive flag`` () =
+        let files = ["iliad.txt"]
+        let flags = ["-i"]
         let pattern = "ACHILLES"
-        let flags = "-i"
-        let files = [iliadFileName]
-
         let expected = 
-            "Achilles sing, O Goddess! Peleus' son;\n" + 
-            "The noble Chief Achilles from the son\n"
+            [ "Achilles sing, O Goddess! Peleus' son;";
+              "The noble Chief Achilles from the son" ]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``One file, several matches, inverted flag`` () =
+        let files = ["paradise-lost.txt"]
+        let flags = ["-v"]
         let pattern = "Of"
-        let flags = "-v"
-        let files = [paradiseLostFileName]
-
-        let expected =             
-            "Brought Death into the World, and all our woe,\n" + 
-            "With loss of Eden, till one greater Man\n" + 
-            "Restore us, and regain the blissful Seat,\n" + 
-            "Sing Heav'nly Muse, that on the secret top\n" + 
-            "That Shepherd, who first taught the chosen Seed\n"
-        
-        grep pattern flags files |> should equal expected
-        
-    [<Fact(Skip = "Remove to run test")>]
-    member this.``One file, case-insensitive and entire line flags`` () =
-        let pattern = "ATREUS"
-        let files = [iliadFileName]
-        let flags = "-i -x"
-        let expected = ""
-        
-        grep pattern flags files |> should equal expected
-        
-    [<Fact(Skip = "Remove to run test")>]
-    member this.``One file, case-insensitive and inverted flags`` () =
-        let pattern = "THE"
-        let files = [paradiseLostFileName]
-        let flags = "-i -v"
-        let expected =
-            "Of that Forbidden Tree, whose mortal tast\n" +
-            "With loss of Eden, till one greater Man\n" +
-            "Of Oreb, or of Sinai, didst inspire\n"
-
-        grep pattern flags files |> should equal expected
+        let expected = 
+            [ "Brought Death into the World, and all our woe,";
+              "With loss of Eden, till one greater Man";
+              "Restore us, and regain the blissful Seat,";
+              "Sing Heav'nly Muse, that on the secret top";
+              "That Shepherd, who first taught the chosen Seed" ]
         
-    [<Fact(Skip = "Remove to run test")>]
-    member this.``One file, inverted and entire line flags`` () =
-        let pattern = "the"
-        let files = [paradiseLostFileName]
-        let flags = "-v -x"
-        let expected =
-            "Of Mans First Disobedience, and the Fruit\n" +
-            "Of that Forbidden Tree, whose mortal tast\n" +
-            "Brought Death into the World, and all our woe,\n" +
-            "With loss of Eden, till one greater Man\n" +
-            "Restore us, and regain the blissful Seat,\n" +
-            "Sing Heav'nly Muse, that on the secret top\n" +
-            "Of Oreb, or of Sinai, didst inspire\n" +
-            "That Shepherd, who first taught the chosen Seed\n"
-
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
-    member this.``One file, case-insensitive, inverted and entire line flags`` () =
-        let pattern = "if i rEFuse To Wed DeMETrius."
-        let files = [midsummerNightFileName]
-        let flags = "-i -v -x"
-        let expected =
-            "I do entreat your grace to pardon me.\n" +
-            "I know not by what power I am made bold,\n" +
-            "Nor how it may concern my modesty,\n" +
-            "In such a presence here to plead my thoughts;\n" +
-            "But I beseech your grace that I may know\n" +
-            "The worst that may befall me in this case,\n"
-
-        grep pattern flags files |> should equal expected
-
-    [<Theory(Skip = "Remove to run test")>]
-    [<InlineData("")>]
-    [<InlineData("-n")>]
-    [<InlineData("-l")>]
-    [<InlineData("-x")>]
-    [<InlineData("-i")>]
-    [<InlineData("-n -l -x -i")>]
-    member this.``One file, no matches, various flags`` (flags) =
+    member this.``One file, no matches, various flags`` () =
+        let files = ["iliad.txt"]
+        let flags = ["-n"; "-l"; "-x"; "-i"]
         let pattern = "Gandalf"
-        let files = [iliadFileName]
-        let expected = ""
-        
-        grep pattern flags files |> should equal expected
+        let expected: string list = []
         
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
+
     [<Fact(Skip = "Remove to run test")>]
     member this.``Multiple files, one match, no flags`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = []
         let pattern = "Agamemnon"
-        let flags = ""
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
-        let expected = 
-            sprintf "%s:Of Atreus, Agamemnon, King of men.\n" iliadFileName
+        let expected = ["iliad.txt:Of Atreus, Agamemnon, King of men."]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``Multiple files, several matches, no flags`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = []
         let pattern = "may"
-        let flags = ""
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
         let expected = 
-            sprintf "%s:Nor how it may concern my modesty,\n" midsummerNightFileName +
-            sprintf "%s:But I beseech your grace that I may know\n" midsummerNightFileName +
-            sprintf "%s:The worst that may befall me in this case,\n" midsummerNightFileName
+            [ "midsummer-night.txt:Nor how it may concern my modesty,";
+              "midsummer-night.txt:But I beseech your grace that I may know";
+              "midsummer-night.txt:The worst that may befall me in this case," ]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``Multiple files, several matches, print line numbers flag`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = ["-n"]
         let pattern = "that"
-        let flags = "-n"
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
         let expected = 
-            sprintf "%s:5:But I beseech your grace that I may know\n" midsummerNightFileName +
-            sprintf "%s:6:The worst that may befall me in this case,\n" midsummerNightFileName +
-            sprintf "%s:2:Of that Forbidden Tree, whose mortal tast\n" paradiseLostFileName +
-            sprintf "%s:6:Sing Heav'nly Muse, that on the secret top\n" paradiseLostFileName
+            [ "midsummer-night.txt:5:But I beseech your grace that I may know";
+              "midsummer-night.txt:6:The worst that may befall me in this case,";
+              "paradise-lost.txt:2:Of that Forbidden Tree, whose mortal tast";
+              "paradise-lost.txt:6:Sing Heav'nly Muse, that on the secret top" ]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
-    member this.``Multiple files, several matches, print file names flag`` () =
+    member this.``Multiple files, one match, print file names flag`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = ["-l"]
         let pattern = "who"
-        let flags = "-l"
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
         let expected = 
-            sprintf "%s\n" iliadFileName +
-            sprintf "%s\n" paradiseLostFileName
+            [ "iliad.txt";
+              "paradise-lost.txt" ]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``Multiple files, several matches, case-insensitive flag`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = ["-i"]
         let pattern = "TO"
-        let flags = "-i"
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
         let expected = 
-            sprintf "%s:Caused to Achaia's host, sent many a soul\n" iliadFileName +
-            sprintf "%s:Illustrious into Ades premature,\n" iliadFileName +
-            sprintf "%s:And Heroes gave (so stood the will of Jove)\n" iliadFileName +
-            sprintf "%s:To dogs and to all ravening fowls a prey,\n" iliadFileName +
-            sprintf "%s:I do entreat your grace to pardon me.\n" midsummerNightFileName +
-            sprintf "%s:In such a presence here to plead my thoughts;\n" midsummerNightFileName +
-            sprintf "%s:If I refuse to wed Demetrius.\n" midsummerNightFileName +
-            sprintf "%s:Brought Death into the World, and all our woe,\n" paradiseLostFileName +
-            sprintf "%s:Restore us, and regain the blissful Seat,\n" paradiseLostFileName +
-            sprintf "%s:Sing Heav'nly Muse, that on the secret top\n" paradiseLostFileName 
-                
-        grep pattern flags files |> should equal expected
+            [ "iliad.txt:Caused to Achaia's host, sent many a soul";
+              "iliad.txt:Illustrious into Ades premature,";
+              "iliad.txt:And Heroes gave (so stood the will of Jove)";
+              "iliad.txt:To dogs and to all ravening fowls a prey,";
+              "midsummer-night.txt:I do entreat your grace to pardon me.";
+              "midsummer-night.txt:In such a presence here to plead my thoughts;";
+              "midsummer-night.txt:If I refuse to wed Demetrius.";
+              "paradise-lost.txt:Brought Death into the World, and all our woe,";
+              "paradise-lost.txt:Restore us, and regain the blissful Seat,";
+              "paradise-lost.txt:Sing Heav'nly Muse, that on the secret top" ]
+        
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``Multiple files, several matches, inverted flag`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = ["-v"]
         let pattern = "a"
-        let flags = "-v"
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
         let expected = 
-            sprintf "%s:Achilles sing, O Goddess! Peleus' son;\n" iliadFileName +
-            sprintf "%s:The noble Chief Achilles from the son\n" iliadFileName +
-            sprintf "%s:If I refuse to wed Demetrius.\n" midsummerNightFileName
+            [ "iliad.txt:Achilles sing, O Goddess! Peleus' son;";
+              "iliad.txt:The noble Chief Achilles from the son";
+              "midsummer-night.txt:If I refuse to wed Demetrius." ]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
     [<Fact(Skip = "Remove to run test")>]
     member this.``Multiple files, one match, match entire lines flag`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = ["-x"]
         let pattern = "But I beseech your grace that I may know"
-        let flags = "-x"
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
-        let expected = 
-            sprintf "%s:But I beseech your grace that I may know\n" midsummerNightFileName
-        
-        grep pattern flags files |> should equal expected
+        let expected = ["midsummer-night.txt:But I beseech your grace that I may know"]
         
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
+
     [<Fact(Skip = "Remove to run test")>]
     member this.``Multiple files, one match, multiple flags`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = ["-n"; "-i"; "-x"]
         let pattern = "WITH LOSS OF EDEN, TILL ONE GREATER MAN"
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-        let flags = "-n -i -x"
-        let expected = 
-            sprintf "%s:4:With loss of Eden, till one greater Man\n" paradiseLostFileName
+        let expected = ["paradise-lost.txt:4:With loss of Eden, till one greater Man"]
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
 
-    [<Theory(Skip = "Remove to run test")>]
-    [<InlineData("")>]
-    [<InlineData("-n")>]
-    [<InlineData("-l")>]
-    [<InlineData("-x")>]
-    [<InlineData("-i")>]
-    [<InlineData("-n -l -x -i")>]
-    member this.``Multiple files, no matches, various flags`` (flags) =
+    [<Fact(Skip = "Remove to run test")>]
+    member this.``Multiple files, no matches, various flags`` () =
+        let files = ["iliad.txt"; "midsummer-night.txt"; "paradise-lost.txt"]
+        let flags = ["-n"; "-l"; "-x"; "-i"]
         let pattern = "Frodo"
-        let files = [iliadFileName; midsummerNightFileName; paradiseLostFileName]
-
-        let expected = ""
+        let expected: string list = []
         
-        grep pattern flags files |> should equal expected
+        createFiles() |> ignore
+        grep files flags pattern |> should equal expected
+