trackler 2.2.1.99 → 2.2.1.100

data/tracks/fsharp/exercises/perfect-numbers/PerfectNumbersTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.1 of the canonical data.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module PerfectNumbersTest
 

data/tracks/fsharp/exercises/phone-number/PhoneNumberTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.2.0 of the canonical data.
+// This file was auto-generated based on version 1.4.0 of the canonical data.
 
 module PhoneNumberTest
 
@@ -48,10 +48,18 @@ let ``Invalid with punctuations`` () =
     clean "123-@:!-7890" |> should equal None
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Invalid if area code does not start with 2-9`` () =
+let ``Invalid if area code starts with 0`` () =
+    clean "(023) 456-7890" |> should equal None
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Invalid if area code starts with 1`` () =
     clean "(123) 456-7890" |> should equal None
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Invalid if exchange code does not start with 2-9`` () =
+let ``Invalid if exchange code starts with 0`` () =
     clean "(223) 056-7890" |> should equal None
 
+[<Fact(Skip = "Remove to run test")>]
+let ``Invalid if exchange code starts with 1`` () =
+    clean "(223) 156-7890" |> should equal None
+

data/tracks/fsharp/exercises/pig-latin/PigLatinTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.1.0 of the canonical data.
+// This file was auto-generated based on version 1.2.0 of the canonical data.
 
 module PigLatinTest
 

data/tracks/fsharp/exercises/protein-translation/Example.fs

@@ -23,8 +23,8 @@ let codonToProtein =
     | "UGA" -> "STOP"
     | _ -> failwith "Invalid codon"
 
-let translate (input: string) =
-    input 
+let proteins (rna: string) =
+    rna 
     |> Seq.chunkBySize 3 
     |> Seq.map (String >> codonToProtein)
     |> Seq.takeWhile (fun str -> str <> "STOP")

data/tracks/fsharp/exercises/protein-translation/ProteinTranslation.fs

@@ -1,3 +1,3 @@
 module ProteinTranslation
 
-let translate input = failwith "You need to implement this function."
+let proteins rna = failwith "You need to implement this function."

data/tracks/fsharp/exercises/protein-translation/ProteinTranslationTest.fs

@@ -1,67 +1,101 @@
-// This file was created manually and its version is 1.0.0.
+// This file was auto-generated based on version 1.0.1 of the canonical data.
 
 module ProteinTranslationTest
 
-open Xunit
 open FsUnit.Xunit
-open System
+open Xunit
 
 open ProteinTranslation
 
-[<Theory(Skip = "Remove to run test")>]
-[<InlineData("AUG")>]
-let ``Identifies Methionine codons`` (codon) =
-    translate codon |> should equal ["Methionine"]
-    
-[<Theory(Skip = "Remove to run test")>]
-[<InlineData("UUU")>]
-[<InlineData("UUC")>]
-let ``Identifies Phenylalanine codons`` (codon) =
-    translate codon |> should equal ["Phenylalanine"]
- 
-[<Theory(Skip = "Remove to run test")>]   
-[<InlineData("UUA")>]
-[<InlineData("UUG")>]
-let ``Identifies Leucine codons`` (codon) =
-    translate codon |> should equal ["Leucine"]
-    
-[<Theory(Skip = "Remove to run test")>]
-[<InlineData("UCU")>]
-[<InlineData("UCC")>]
-[<InlineData("UCA")>]
-[<InlineData("UCG")>]
-let ``Identifies Serine codons`` (codon) =
-    translate codon |> should equal ["Serine"]
-    
-[<Theory(Skip = "Remove to run test")>]
-[<InlineData("UAU")>]
-[<InlineData("UAC")>]
-let ``Identifies Tyrosine codons`` (codon) =
-    translate codon |> should equal ["Tyrosine"]
-    
-[<Theory(Skip = "Remove to run test")>]
-[<InlineData("UGU")>]
-[<InlineData("UGC")>]
-let ``Identifies Cysteine codons`` (codon) =
-    translate codon |> should equal ["Cysteine"]
-    
-[<Theory(Skip = "Remove to run test")>]
-[<InlineData("UGG")>] 
-let ``Identifies Tryptophan codons`` (codon) =
-    translate codon |> should equal ["Tryptophan"]
-
-[<Fact(Skip = "Remove to run test")>]
-let ``Translates rna strand into correct protein`` () =
-    translate "AUGUUUUGG" |> should equal ["Methionine"; "Phenylalanine"; "Tryptophan"]
-
-[<Fact(Skip = "Remove to run test")>]
-let ``Stops translation if stop codon present`` () =
-    translate "AUGUUUUAA" |> should equal ["Methionine"; "Phenylalanine"]
-
-[<Fact(Skip = "Remove to run test")>]
-let ``Stops translation of longer strand`` () =
-    translate "UGGUGUUAUUAAUGGUUU'" |> should equal ["Tryptophan"; "Cysteine"; "Tyrosine"]
-
-[<Fact(Skip = "Remove to run test")>]
-let ``Throws for invalid codons`` () =
-    (fun () -> translate "CARROT'" |> List.ofSeq |> ignore) |> should throw typeof<Exception>
+[<Fact>]
+let ``Methionine RNA sequence`` () =
+    proteins "AUG" |> should equal ["Methionine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Phenylalanine RNA sequence 1`` () =
+    proteins "UUU" |> should equal ["Phenylalanine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Phenylalanine RNA sequence 2`` () =
+    proteins "UUC" |> should equal ["Phenylalanine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Leucine RNA sequence 1`` () =
+    proteins "UUA" |> should equal ["Leucine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Leucine RNA sequence 2`` () =
+    proteins "UUG" |> should equal ["Leucine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Serine RNA sequence 1`` () =
+    proteins "UCU" |> should equal ["Serine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Serine RNA sequence 2`` () =
+    proteins "UCC" |> should equal ["Serine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Serine RNA sequence 3`` () =
+    proteins "UCA" |> should equal ["Serine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Serine RNA sequence 4`` () =
+    proteins "UCG" |> should equal ["Serine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Tyrosine RNA sequence 1`` () =
+    proteins "UAU" |> should equal ["Tyrosine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Tyrosine RNA sequence 2`` () =
+    proteins "UAC" |> should equal ["Tyrosine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Cysteine RNA sequence 1`` () =
+    proteins "UGU" |> should equal ["Cysteine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Cysteine RNA sequence 2`` () =
+    proteins "UGC" |> should equal ["Cysteine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Tryptophan RNA sequence`` () =
+    proteins "UGG" |> should equal ["Tryptophan"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``STOP codon RNA sequence 1`` () =
+    proteins "UAA" |> should be Empty
+
+[<Fact(Skip = "Remove to run test")>]
+let ``STOP codon RNA sequence 2`` () =
+    proteins "UAG" |> should be Empty
+
+[<Fact(Skip = "Remove to run test")>]
+let ``STOP codon RNA sequence 3`` () =
+    proteins "UGA" |> should be Empty
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Translate RNA strand into correct protein list`` () =
+    proteins "AUGUUUUGG" |> should equal ["Methionine"; "Phenylalanine"; "Tryptophan"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Translation stops if STOP codon at beginning of sequence`` () =
+    proteins "UAGUGG" |> should be Empty
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Translation stops if STOP codon at end of two-codon sequence`` () =
+    proteins "UGGUAG" |> should equal ["Tryptophan"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Translation stops if STOP codon at end of three-codon sequence`` () =
+    proteins "AUGUUUUAA" |> should equal ["Methionine"; "Phenylalanine"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Translation stops if STOP codon in middle of three-codon sequence`` () =
+    proteins "UGGUAGUGG" |> should equal ["Tryptophan"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Translation stops if STOP codon in middle of six-codon sequence`` () =
+    proteins "UGGUGUUAUUAAUGGUUU" |> should equal ["Tryptophan"; "Cysteine"; "Tyrosine"]
+

data/tracks/fsharp/exercises/react/ReactTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.0 of the canonical data.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module ReactTest
 

data/tracks/fsharp/exercises/rna-transcription/RnaTranscriptionTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.1.0 of the canonical data.
+// This file was auto-generated based on version 1.2.0 of the canonical data.
 
 module RnaTranscriptionTest
 

data/tracks/fsharp/exercises/roman-numerals/RomanNumeralsTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.0 of the canonical data.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module RomanNumeralsTest
 

data/tracks/fsharp/exercises/rotational-cipher/RotationalCipherTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.1.0 of the canonical data.
+// This file was auto-generated based on version 1.2.0 of the canonical data.
 
 module RotationalCipherTest
 

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

@@ -68,7 +68,7 @@ let parts n =
     let (thousandsCount, remainder) = quotRem millionsRemainder 1000L
     (billionsCount, millionsCount, thousandsCount, remainder)
     
-let inEnglish n = 
+let say n = 
     match n with
     | _ when n < 0L || n>= 1000000000000L -> None
     | 0L -> Some "zero"

data/tracks/fsharp/exercises/say/SayTest.fs

@@ -1,72 +1,69 @@
-// This file was created manually and its version is 1.0.0.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module SayTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
 
 open Say
 
 [<Fact>]
 let ``Zero`` () =
-    inEnglish 0L |> should equal <| Some "zero"
+    say 0L |> should equal (Some "zero")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One`` () =
-    inEnglish 1L |> should equal <| Some "one"
+    say 1L |> should equal (Some "one")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Fourteen`` () =
-    inEnglish 14L |> should equal <| Some "fourteen"
+    say 14L |> should equal (Some "fourteen")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Twenty`` () =
-    inEnglish 20L |> should equal <| Some "twenty"
+    say 20L |> should equal (Some "twenty")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Twenty-two`` () =
-    inEnglish 22L |> should equal <| Some "twenty-two"
+    say 22L |> should equal (Some "twenty-two")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One hundred`` () =
-    inEnglish 100L |> should equal <| Some "one hundred"
+    say 100L |> should equal (Some "one hundred")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One hundred twenty-three`` () =
-    inEnglish 123L |> should equal <| Some "one hundred twenty-three"
+    say 123L |> should equal (Some "one hundred twenty-three")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One thousand`` () =
-    inEnglish 1000L |> should equal <| Some "one thousand"
+    say 1000L |> should equal (Some "one thousand")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One thousand two hundred thirty-four`` () =
-    inEnglish 1234L |> should equal <| Some "one thousand two hundred thirty-four"
+    say 1234L |> should equal (Some "one thousand two hundred thirty-four")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One million`` () =
-    inEnglish 1000000L |> should equal <| Some "one million"
-
-[<Fact(Skip = "Remove to run test")>]
-let ``One million two`` () =
-    inEnglish 1000002L |> should equal <| Some "one million two"
+    say 1000000L |> should equal (Some "one million")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One million two thousand three hundred forty-five`` () =
-    inEnglish 1002345L |> should equal <| Some "one million two thousand three hundred forty-five"
+    say 1002345L |> should equal (Some "one million two thousand three hundred forty-five")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``One billion`` () =
-    inEnglish 1000000000L |> should equal <| Some "one billion"
+    say 1000000000L |> should equal (Some "one billion")
 
 [<Fact(Skip = "Remove to run test")>]
 let ``A big number`` () =
-    inEnglish 987654321123L |> should equal <| Some "nine hundred eighty-seven billion six hundred fifty-four million three hundred twenty-one thousand one hundred twenty-three"
- 
+    say 987654321123L |> should equal (Some "nine hundred eighty-seven billion six hundred fifty-four million three hundred twenty-one thousand one hundred twenty-three")
+
 [<Fact(Skip = "Remove to run test")>]
-let ``Lower bound`` () =
-    inEnglish -1L |> should equal None
+let ``Numbers below zero are out of range`` () =
+    say -1L |> should equal None
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Upper bound`` () =
-    inEnglish 1000000000000L |> should equal None
+let ``Numbers above 999,999,999,999 are out of range`` () =
+    say 1000000000000L |> should equal None
+

data/tracks/fsharp/exercises/scrabble-score/ScrabbleScoreTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.0 of the canonical data.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module ScrabbleScoreTest
 

data/tracks/fsharp/exercises/secret-handshake/Example.fs

@@ -1,6 +1,6 @@
 module SecretHandshake
 
-let commands = 
+let commandsMapping = 
     [(1 <<< 0, (fun acc -> acc @ ["wink"]));
      (1 <<< 1, (fun acc -> acc @ ["double blink"]));
      (1 <<< 2, (fun acc -> acc @ ["close your eyes"]));
@@ -11,4 +11,4 @@ let applyCommand number acc (mask, apply) =
     if number &&& mask <> 0 then apply acc
     else acc
 
-let handshake number = commands |> List.fold (applyCommand number) []
+let commands number = commandsMapping |> List.fold (applyCommand number) []

data/tracks/fsharp/exercises/secret-handshake/SecretHandshake.fs

@@ -1,3 +1,3 @@
 module SecretHandshake
 
-let handshake number = failwith "You need to implement this function."
+let commands number = failwith "You need to implement this function."

data/tracks/fsharp/exercises/secret-handshake/SecretHandshakeTest.fs

@@ -1,36 +1,53 @@
-// This file was created manually and its version is 1.0.0.
+// This file was auto-generated based on version 1.2.0 of the canonical data.
 
 module SecretHandshakeTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
 
 open SecretHandshake
 
 [<Fact>]
-let ``Test 1 handshake to wink`` () =
-    handshake 1 |> should equal ["wink"]
-    
+let ``Wink for 1`` () =
+    commands 1 |> should equal ["wink"]
+
 [<Fact(Skip = "Remove to run test")>]
-let ``Test 10 handshake to double blink`` () =
-    handshake 2 |> should equal ["double blink"]
-    
+let ``Double blink for 10`` () =
+    commands 2 |> should equal ["double blink"]
+
 [<Fact(Skip = "Remove to run test")>]
-let ``Test 100 handshake to close your eyes`` () =
-    handshake 4 |> should equal ["close your eyes"]
-    
+let ``Close your eyes for 100`` () =
+    commands 4 |> should equal ["close your eyes"]
+
 [<Fact(Skip = "Remove to run test")>]
-let ``Test 1000 handshake to close your eyes`` () =
-    handshake 8 |> should equal ["jump"]
-    
+let ``Jump for 1000`` () =
+    commands 8 |> should equal ["jump"]
+
 [<Fact(Skip = "Remove to run test")>]
-let ``Test handshake 11 to wink and double blink`` () =
-    handshake 3 |> should equal ["wink"; "double blink"]
-    
+let ``Combine two actions`` () =
+    commands 3 |> should equal ["wink"; "double blink"]
+
 [<Fact(Skip = "Remove to run test")>]
-let ``Test handshake 10011 to double blink and wink`` () =
-    handshake 19 |> should equal ["double blink"; "wink"]
-    
+let ``Reverse two actions`` () =
+    commands 19 |> should equal ["double blink"; "wink"]
+
 [<Fact(Skip = "Remove to run test")>]
-let ``Test handshake 11111 to all commands reversed`` () =
-    handshake 31 |> should equal ["jump"; "close your eyes"; "double blink"; "wink"]
+let ``Reversing one action gives the same action`` () =
+    commands 24 |> should equal ["jump"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Reversing no actions still gives no actions`` () =
+    commands 16 |> should be Empty
+
+[<Fact(Skip = "Remove to run test")>]
+let ``All possible actions`` () =
+    commands 15 |> should equal ["wink"; "double blink"; "close your eyes"; "jump"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Reverse all possible actions`` () =
+    commands 31 |> should equal ["jump"; "close your eyes"; "double blink"; "wink"]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Do nothing for zero`` () =
+    commands 0 |> should be Empty
+