trackler 2.2.1.54 → 2.2.1.55

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

@@ -48,14 +48,18 @@ let charToColor c =
     | 'X' -> Some Black
     | _   -> None
 
-let mkBoard (input: string list) = 
-    let rows' = List.length input
-    let cols' = Seq.length (List.head input)
-    let cellColor col row = input |> List.item row |> Seq.item col |> charToColor
+let normalizeRow (row: string) = row.Replace(" ", "")
+
+let mkBoard (input: string list) =
+    let normalizedRows = List.map normalizeRow input
+
+    let rows' = List.length normalizedRows
+    let cols' = Seq.length (List.head normalizedRows)
+    let cellColor col row = normalizedRows |> List.item row |> Seq.item col |> charToColor
     
     Array2D.init cols' rows' cellColor
 
-let resultFor input =
+let winner input =
     let board = mkBoard input
     if whiteWins board then Some White
     elif blackWins board then Some Black

data/tracks/fsharp/exercises/food-chain/Example.fs

@@ -2,8 +2,6 @@
 
 let joinBy str = List.reduce (fun x y -> x + str + y)
 
-let verses = 8
-
 let subjects = 
     [("spider", "It wriggled and jiggled and tickled inside her.");
      ("bird",   "How absurd to swallow a bird!");
@@ -38,11 +36,9 @@ let verseEnd number =
         |> List.skip (List.length history - number)
         |> List.take number
 
-let verse number = 
-    verseBegin number @ verseEnd number
-    |> joinBy "\n"
+let verse number = verseBegin number @ verseEnd number
 
-let song = 
-    [1 .. verses]
-    |> List.map verse 
-    |> joinBy "\n\n"
+let verses start stop =
+    [start .. stop]
+    |> List.map verse
+    |> List.reduce (fun x y -> x @ "" :: y)

data/tracks/fsharp/exercises/food-chain/FoodChain.fs

@@ -1,5 +1,5 @@
 module FoodChain
 
-let verse number = failwith "You need to implement this function."
+let verse number: string list = failwith "You need to implement this function."
 
-let song: string = failwith "You need to implement this function."
+let verses start stop: string list = failwith "You need to implement this function."

data/tracks/fsharp/exercises/food-chain/FoodChainTest.fs

@@ -1,97 +1,165 @@
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
 module FoodChainTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
 
 open FoodChain
 
-let combine = List.reduce (fun x y -> x + "\n" + y)
-
 [<Fact>]
-let ``Verse one`` () =
-    let expected = ["I know an old lady who swallowed a fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die."] |> combine
-
+let ``Fly`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
     verse 1 |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Verse two`` () =
-    let expected = ["I know an old lady who swallowed a spider.";
-                    "It wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die."] |> combine
-
+let ``Spider`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a spider.";
+          "It wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
     verse 2 |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Verse four`` () =
-    let expected = ["I know an old lady who swallowed a cat.";
-                    "Imagine that, to swallow a cat!";
-                    "She swallowed the cat to catch the bird.";
-                    "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die."] |> combine
+let ``Bird`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a bird.";
+          "How absurd to swallow a bird!";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
+    verse 3 |> should equal expected
 
+[<Fact(Skip = "Remove to run test")>]
+let ``Cat`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a cat.";
+          "Imagine that, to swallow a cat!";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
     verse 4 |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Verse eight`` () =
-    let expected = ["I know an old lady who swallowed a horse.";
-                    "She's dead, of course!"] |> combine
+let ``Dog`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a dog.";
+          "What a hog, to swallow a dog!";
+          "She swallowed the dog to catch the cat.";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
+    verse 5 |> should equal expected
 
+[<Fact(Skip = "Remove to run test")>]
+let ``Goat`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a goat.";
+          "Just opened her throat and swallowed a goat!";
+          "She swallowed the goat to catch the dog.";
+          "She swallowed the dog to catch the cat.";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
+    verse 6 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Cow`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a cow.";
+          "I don't know how she swallowed a cow!";
+          "She swallowed the cow to catch the goat.";
+          "She swallowed the goat to catch the dog.";
+          "She swallowed the dog to catch the cat.";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
+    verse 7 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Horse`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a horse.";
+          "She's dead, of course!" ]
     verse 8 |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Complete song`` () =
-    let expected = ["I know an old lady who swallowed a fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die.";
-                    "";
-                    "I know an old lady who swallowed a spider.";
-                    "It wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die.";
-                    "";
-                    "I know an old lady who swallowed a bird.";
-                    "How absurd to swallow a bird!";
-                    "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die.";
-                    "";
-                    "I know an old lady who swallowed a cat.";
-                    "Imagine that, to swallow a cat!";
-                    "She swallowed the cat to catch the bird.";
-                    "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die.";
-                    "";
-                    "I know an old lady who swallowed a dog.";
-                    "What a hog, to swallow a dog!";
-                    "She swallowed the dog to catch the cat.";
-                    "She swallowed the cat to catch the bird.";
-                    "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die.";
-                    "";
-                    "I know an old lady who swallowed a goat.";
-                    "Just opened her throat and swallowed a goat!";
-                    "She swallowed the goat to catch the dog.";
-                    "She swallowed the dog to catch the cat.";
-                    "She swallowed the cat to catch the bird.";
-                    "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die.";
-                    "";
-                    "I know an old lady who swallowed a cow.";
-                    "I don't know how she swallowed a cow!";
-                    "She swallowed the cow to catch the goat.";
-                    "She swallowed the goat to catch the dog.";
-                    "She swallowed the dog to catch the cat.";
-                    "She swallowed the cat to catch the bird.";
-                    "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
-                    "She swallowed the spider to catch the fly.";
-                    "I don't know why she swallowed the fly. Perhaps she'll die.";
-                    "";
-                    "I know an old lady who swallowed a horse.";
-                    "She's dead, of course!"] |> combine
+let ``Multiple verses`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a spider.";
+          "It wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a bird.";
+          "How absurd to swallow a bird!";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die." ]
+    verses 1 3 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Full song`` () =
+    let expected = 
+        [ "I know an old lady who swallowed a fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a spider.";
+          "It wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a bird.";
+          "How absurd to swallow a bird!";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a cat.";
+          "Imagine that, to swallow a cat!";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a dog.";
+          "What a hog, to swallow a dog!";
+          "She swallowed the dog to catch the cat.";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a goat.";
+          "Just opened her throat and swallowed a goat!";
+          "She swallowed the goat to catch the dog.";
+          "She swallowed the dog to catch the cat.";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a cow.";
+          "I don't know how she swallowed a cow!";
+          "She swallowed the cow to catch the goat.";
+          "She swallowed the goat to catch the dog.";
+          "She swallowed the dog to catch the cat.";
+          "She swallowed the cat to catch the bird.";
+          "She swallowed the bird to catch the spider that wriggled and jiggled and tickled inside her.";
+          "She swallowed the spider to catch the fly.";
+          "I don't know why she swallowed the fly. Perhaps she'll die.";
+          "";
+          "I know an old lady who swallowed a horse.";
+          "She's dead, of course!" ]
+    verses 1 8 |> should equal expected
 
-    song |> should equal expected

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

@@ -1,6 +1,10 @@
 module Hamming
 
-let compute (strand1:string) (strand2:string) = 
-    Array.zip (strand1.ToCharArray()) (strand2.ToCharArray()) 
-    |> Array.filter (fun (c1, c2) -> c1 <> c2) 
-    |> Array.length
+let distance (strand1:string) (strand2:string) = 
+    if (strand1.Length <> strand2.Length) then
+        None
+    else
+        Array.zip (strand1.ToCharArray()) (strand2.ToCharArray()) 
+        |> Array.filter (fun (c1, c2) -> c1 <> c2) 
+        |> Array.length
+        |> Some

data/tracks/fsharp/exercises/hamming/Hamming.fs

@@ -1,3 +1,3 @@
 module Hamming
 
-let compute (strand1: string) (strand2: string): int = failwith "You need to implement this function."
+let distance (strand1: string) (strand2: string): int option = failwith "You need to implement this function."

data/tracks/fsharp/exercises/hamming/HammingTest.fs

@@ -1,29 +1,69 @@
+// This file was auto-generated based on version 2.0.1 of the canonical data.
+
 module HammingTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
+
 open Hamming
 
 [<Fact>]
-let ``No difference between empty strands`` () =
-    compute "" "" |> should equal 0
+let ``Empty strands`` () =
+    distance "" "" |> should equal (Some 0)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Identical strands`` () =
+    distance "A" "A" |> should equal (Some 0)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Long identical strands`` () =
+    distance "GGACTGA" "GGACTGA" |> should equal (Some 0)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Complete distance in single nucleotide strands`` () =
+    distance "A" "G" |> should equal (Some 1)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Complete distance in small strands`` () =
+    distance "AG" "CT" |> should equal (Some 2)
 
 [<Fact(Skip = "Remove to run test")>]
-let ``No difference between identical strands`` () =
-    compute "GGACTGA" "GGACTGA" |> should equal 0
+let ``Small distance in small strands`` () =
+    distance "AT" "CT" |> should equal (Some 1)
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Complete hamming distance in small strand`` () =
-    compute "ACT" "GGA" |> should equal 3
+let ``Small distance`` () =
+    distance "GGACG" "GGTCG" |> should equal (Some 1)
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Hamming distance is off by one strand`` () =
-    compute "GGACGGATTCTG" "AGGACGGATTCT" |> should equal 9
+let ``Small distance in long strands`` () =
+    distance "ACCAGGG" "ACTATGG" |> should equal (Some 2)
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Smalling hamming distance in middle somewhere`` () =
-    compute "GGACG" "GGTCG" |> should equal 1
+let ``Non-unique character in first strand`` () =
+    distance "AAG" "AAA" |> should equal (Some 1)
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Larger distance`` () =
-    compute "ACCAGGG" "ACTATGG" |> should equal 2
+let ``Non-unique character in second strand`` () =
+    distance "AAA" "AAG" |> should equal (Some 1)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Same nucleotides in different positions`` () =
+    distance "TAG" "GAT" |> should equal (Some 2)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Large distance`` () =
+    distance "GATACA" "GCATAA" |> should equal (Some 4)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Large distance in off-by-one strand`` () =
+    distance "GGACGGATTCTG" "AGGACGGATTCT" |> should equal (Some 9)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Disallow first strand longer`` () =
+    distance "AATG" "AAA" |> should equal None
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Disallow second strand longer`` () =
+    distance "ATA" "AGTG" |> should equal None
+

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

@@ -23,13 +23,12 @@ let line number index =
     if index = number then "This is the " + subject + ending
     else "that " + verb + " the " + subject + ending
     
-let block number = 
+let verse number = 
     let lineForBlock = line number
     [number .. -1 .. 1]
     |> List.map lineForBlock
-    |> List.reduce (fun x y -> x + "\n" + y)    
 
-let rhyme = 
-    [1..numberOfBlocks]
-    |> List.map block
-    |> List.reduce (fun x y -> x + "\n\n" + y)
+let verses startVerse endVerse = 
+    [startVerse..endVerse]
+    |> List.map verse
+    |> List.reduce (fun x y -> x @ "" :: y)

data/tracks/fsharp/exercises/house/House.fs

@@ -1,3 +1,5 @@
 module House
 
-let rhyme: string = failwith "You need to implement this function."
+let verse number: string list = failwith "You need to implement this function."
+
+let verses startVerse endVerse: string list = failwith "You need to implement this function."

data/tracks/fsharp/exercises/house/HouseTest.fs

@@ -1,103 +1,279 @@
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
 module HouseTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
 
 open House
 
-let expected = 
-    [
-    "This is the house that Jack built.";
-    "";
-    "This is the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the dog";
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the cow with the crumpled horn";
-    "that tossed the dog"; 
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the maiden all forlorn";
-    "that milked the cow with the crumpled horn";
-    "that tossed the dog";
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the man all tattered and torn";
-    "that kissed the maiden all forlorn";
-    "that milked the cow with the crumpled horn";
-    "that tossed the dog";
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the priest all shaven and shorn";
-    "that married the man all tattered and torn";
-    "that kissed the maiden all forlorn";
-    "that milked the cow with the crumpled horn";
-    "that tossed the dog";
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the rooster that crowed in the morn";
-    "that woke the priest all shaven and shorn";
-    "that married the man all tattered and torn";
-    "that kissed the maiden all forlorn";
-    "that milked the cow with the crumpled horn";
-    "that tossed the dog";
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the farmer sowing his corn";
-    "that kept the rooster that crowed in the morn";
-    "that woke the priest all shaven and shorn";
-    "that married the man all tattered and torn";
-    "that kissed the maiden all forlorn";
-    "that milked the cow with the crumpled horn";
-    "that tossed the dog";
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built.";
-    "";
-    "This is the horse and the hound and the horn";
-    "that belonged to the farmer sowing his corn";
-    "that kept the rooster that crowed in the morn";
-    "that woke the priest all shaven and shorn";
-    "that married the man all tattered and torn";
-    "that kissed the maiden all forlorn";
-    "that milked the cow with the crumpled horn";
-    "that tossed the dog";
-    "that worried the cat";
-    "that killed the rat";
-    "that ate the malt";
-    "that lay in the house that Jack built."]
-    |> List.reduce (fun x y -> x + "\n" + y)
-
 [<Fact>]
-let ``Rhyme is correct`` () =
-    rhyme |> should equal expected
+let ``Verse one - the house that jack built`` () =
+    let expected = ["This is the house that Jack built."]
+    verse 1 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse two - the malt that lay`` () =
+    let expected = 
+        [ "This is the malt"
+          "that lay in the house that Jack built." ]
+    verse 2 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse three - the rat that ate`` () =
+    let expected = 
+        [ "This is the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 3 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse four - the cat that killed`` () =
+    let expected = 
+        [ "This is the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 4 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse five - the dog that worried`` () =
+    let expected = 
+        [ "This is the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 5 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse six - the cow with the crumpled horn`` () =
+    let expected = 
+        [ "This is the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 6 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse seven - the maiden all forlorn`` () =
+    let expected = 
+        [ "This is the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 7 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse eight - the man all tattered and torn`` () =
+    let expected = 
+        [ "This is the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 8 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse nine - the priest all shaven and shorn`` () =
+    let expected = 
+        [ "This is the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 9 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse 10 - the rooster that crowed in the morn`` () =
+    let expected = 
+        [ "This is the rooster that crowed in the morn"
+          "that woke the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 10 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse 11 - the farmer sowing his corn`` () =
+    let expected = 
+        [ "This is the farmer sowing his corn"
+          "that kept the rooster that crowed in the morn"
+          "that woke the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 11 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Verse 12 - the horse and the hound and the horn`` () =
+    let expected = 
+        [ "This is the horse and the hound and the horn"
+          "that belonged to the farmer sowing his corn"
+          "that kept the rooster that crowed in the morn"
+          "that woke the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verse 12 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Multiple verses`` () =
+    let expected = 
+        [ "This is the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verses 4 8 |> should equal expected
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Full rhyme`` () =
+    let expected = 
+        [ "This is the house that Jack built."
+          ""
+          "This is the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the rooster that crowed in the morn"
+          "that woke the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the farmer sowing his corn"
+          "that kept the rooster that crowed in the morn"
+          "that woke the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built."
+          ""
+          "This is the horse and the hound and the horn"
+          "that belonged to the farmer sowing his corn"
+          "that kept the rooster that crowed in the morn"
+          "that woke the priest all shaven and shorn"
+          "that married the man all tattered and torn"
+          "that kissed the maiden all forlorn"
+          "that milked the cow with the crumpled horn"
+          "that tossed the dog"
+          "that worried the cat"
+          "that killed the rat"
+          "that ate the malt"
+          "that lay in the house that Jack built." ]
+    verses 1 12 |> should equal expected
+