Sha256: 00a681981de76d8660d2db14efc3027de0fccbf7c3a9a35091b9d4b6fac14681
Contents?: true
Size: 1.86 KB
Versions: 32
Compression:
Stored size: 1.86 KB
Contents
module AlphameticsTest
open Xunit
open FsUnit.Xunit
open Alphametics
[<Fact>]
let ``Puzzle with three letters`` () =
let actual = solve "I + BB == ILL"
let expected = ['I', 1; 'B', 9; 'L', 0] |> Map.ofList |> Some
actual |> should equal expected
[<Fact(Skip = "Remove to run test")>]
let ``Solution must have unique value for each letter`` () =
let actual = solve "A == B"
actual |> should equal None
[<Fact(Skip = "Remove to run test")>]
let ``Leading zero solution is invalid`` () =
let actual = solve "ACA + DD == BD"
actual |> should equal None
[<Fact(Skip = "Remove to run test")>]
let ``Puzzle with four letters`` () =
let actual = solve "AS + A == MOM"
let expected = ['A', 9; 'S', 2; 'M', 1; 'O', 0] |> Map.ofList |> Some
actual |> should equal expected
[<Fact(Skip = "Remove to run test")>]
let ``Puzzle with six letters`` () =
let actual = solve "NO + NO + TOO == LATE"
let expected = ['N', 7; 'O', 4; 'T', 9; 'L', 1; 'A', 0; 'E', 2] |> Map.ofList |> Some
actual |> should equal expected
[<Fact(Skip = "Remove to run test")>]
let ``Puzzle with seven letters`` () =
let actual = solve "HE + SEES + THE == LIGHT"
let expected = ['E', 4; 'G', 2; 'H', 5; 'I', 0; 'L', 1; 'S', 9; 'T', 7] |> Map.ofList |> Some
actual |> should equal expected
[<Fact(Skip = "Remove to run test")>]
let ``Puzzle with eight letters`` () =
let actual = solve "SEND + MORE == MONEY"
let expected = ['S', 9; 'E', 5; 'N', 6; 'D', 7; 'M', 1; 'O', 0; 'R', 8; 'Y', 2] |> Map.ofList |> Some
actual |> should equal expected
[<Fact(Skip = "Remove to run test")>]
let ``Puzzle with ten letters`` () =
let actual = solve "AND + A + STRONG + OFFENSE + AS + A + GOOD == DEFENSE"
let expected = ['A', 5; 'D', 3; 'E', 4; 'F', 7; 'G', 8; 'N', 0; 'O', 2; 'R', 1; 'S', 6; 'T', 9] |> Map.ofList |> Some
actual |> should equal expected
Version data entries
32 entries across 32 versions & 1 rubygems