feat(card): add support for Solo

src/Dedge.Cardizer/Dedge.Cardizer.fs

@@ -575,3 +575,26 @@ type Cardizer =
               [ 9; 7; 9; 2 ] ].[Cardizer.next 2]
 
         Cardizer.GenerateCard prefix 16
+
+    /// <summary>Returns a random Laser number.</summary>
+    /// <returns>Random Laser number</returns>
+    /// <example>
+    /// This sample shows how to call the <see cref="NextLaser"/> method.
+    /// <code>
+    /// void PrintLaser()
+    /// {
+    ///    Console.WriteLine(Cardizer.NextLaser());
+    /// }
+    /// </code>
+    /// </example>
+    static member NextSolo([<Optional; DefaultParameterValue(From16To19.Random)>] soloLengthOption) =
+        let length =
+            match soloLengthOption with
+            | From16To19.Random -> Cardizer.NextInRange 16 19
+            | _ -> int soloLengthOption
+
+        let prefix =
+            [ [ 6; 3; 3; 4 ]
+              [ 6; 7; 6; 7 ] ].[Cardizer.next 2]
+
+        Cardizer.GenerateCard prefix length

src/Tests/Tests.fs

@@ -322,3 +322,21 @@ let ``Should generate valid Troy`` () =
     prefixInRange |> should be True
     card |> should haveLength 16
     card |> luhn |> should be LuhnCheck
+
+[<Theory>]
+[<InlineData(From16To19.Sixteen, 16)>]
+[<InlineData(From16To19.Seventeen, 17)>]
+[<InlineData(From16To19.Eightteen, 18)>]
+[<InlineData(From16To19.Nineteen, 19)>]
+let ``Should generate valid Solo`` length expectedLength =
+    let card = Cardizer.NextSolo length
+
+    let start = card.Substring(0, 4) |> int
+
+    let prefixInRange =
+        start = 6334
+        || start = 6767
+
+    prefixInRange |> should be True
+    card |> should haveLength expectedLength
+    card |> luhn |> should be LuhnCheck