bird-watch: change Task 6 in order to respect pattern matching more (#1007)

bird-watch: change Task 6 in order to respect pattern matching more

Co-authored-by: Erik Schierboom <[email protected]>

Author: Grenkin1988

exercises/concept/bird-watcher/.docs/instructions.md

@@ -52,10 +52,18 @@ incrementTodaysCount birdCount
 
 ## 6. Check for odd week
 
-Over the last year, you've found that some weeks for the same, odd pattern, where the counts alternate between one and zero birds visiting. Implement the `oddWeek` function that returns `true` if the bird count pattern of this week matches the odd pattern:
+Over the last year, you've found that some weeks have the same, odd patterns:
+- On each even day of the week, there were no birds
+- On each even day of the week, exactly 10 birds were spotted
+- On each odd day of the week, exactly 5 birds were spotted
+
+Implement the `oddWeek` function that returns `true` if the bird count pattern of this week matches one of the odd patterns:
 
 ```fsharp
-oddWeek [| 1; 0; 1; 0; 1; 0; 1 |]
+oddWeek [| 1; 0; 5; 0; 12; 0; 2 |]
+// => true
+
+oddWeek [| 5; 0; 5; 12; 5; 3; 5|]
 // => true
 ```
 

exercises/concept/bird-watcher/.meta/Exemplar.fs

@@ -14,5 +14,7 @@ let incrementTodaysCount (counts: int []): int [] =
 
 let oddWeek (counts: int []) =
     match counts with
-    | [| 1; 0; 1; 0; 1; 0; 1 |] -> true
+    | [| _; 0; _; 0; _; 0; _ |]
+    | [| _; 10; _; 10; _; 10; _ |]
+    | [| 5; _; 5; _; 5; _; 5|] -> true
     | _ -> false

exercises/concept/bird-watcher/BirdWatcherTests.fs

@@ -5,6 +5,7 @@ open Xunit
 open Exercism.Tests
 
 open BirdWatcher
+open System
 
 [<Fact>]
 [<Task(1)>]
@@ -62,12 +63,60 @@ let ``Increment today's count with multiple previous visits`` () =
 
 [<Fact>]
 [<Task(6)>]
-let ``Odd week for week matching odd pattern`` () =
-    oddWeek [| 1; 0; 1; 0; 1; 0; 1 |]
+let ``Odd week for first week matching odd days zero pattern`` () =
+    oddWeek [| 1; 0; 2; 0; 3; 0; 4 |]
     |> should equal true
 
 [<Fact>]
 [<Task(6)>]
-let `` Odd week for week that does not match odd pattern`` () =
+let ``Odd week for second week matching odd days zero pattern`` () =
+    oddWeek [| 10; 0; 6; 0; 9; 0; 4 |]
+    |> should equal true
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for first week matching odd days ten pattern`` () =
+    oddWeek [| 6; 10; 2; 10; 5; 10; 8 |]
+    |> should equal true
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for second week matching odd days ten pattern`` () =
+    oddWeek [| 16; 10; 8; 10; 4; 10; 7 |]
+    |> should equal true
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for first week matching even days five pattern`` () =
+    oddWeek [| 5; 1; 5; 2; 5; 3; 5 |]
+    |> should equal true
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for second week matching even days five pattern`` () =
+    oddWeek [| 5; 12; 5; 6; 5; 5; 5 |]
+    |> should equal true
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for first week that does not match odd pattern`` () =
     oddWeek [| 2; 2; 1; 0; 1; 1; 1 |]
     |> should equal false
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for second week that does not match odd pattern`` () =
+    oddWeek [| 2; 0; 1; 1; 1; 0; 1 |]
+    |> should equal false
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for third week that does not match odd pattern`` () =
+    oddWeek [| 2; 0; 1; 10; 1; 10; 1 |]
+    |> should equal false
+
+[<Fact>]
+[<Task(6)>]
+let ``Odd week for fourth week that does not match odd pattern`` () =
+    oddWeek [| 5; 0; 5; 1; 1; 0; 5 |]
+    |> should equal false