diff options
| author | Lance Wicks <lw@judocoach.com> | 2021-04-24 18:06:15 +0100 |
|---|---|---|
| committer | Lance Wicks <lw@judocoach.com> | 2021-04-24 18:06:15 +0100 |
| commit | 301ec61e8e2d6f50164f399759d521dfdde53ff7 (patch) | |
| tree | 7233e0abb7277cdb299a6e8450a966545ba73ae5 /challenge-109/lance-wicks/elm/tests | |
| parent | fff9e4703ed20a60640c4ef24219499eb532ecb3 (diff) | |
| download | perlweeklychallenge-club-301ec61e8e2d6f50164f399759d521dfdde53ff7.tar.gz perlweeklychallenge-club-301ec61e8e2d6f50164f399759d521dfdde53ff7.tar.bz2 perlweeklychallenge-club-301ec61e8e2d6f50164f399759d521dfdde53ff7.zip | |
Challenge-109 Elm
Diffstat (limited to 'challenge-109/lance-wicks/elm/tests')
| -rw-r--r-- | challenge-109/lance-wicks/elm/tests/N.elm | 41 | ||||
| -rw-r--r-- | challenge-109/lance-wicks/elm/tests/Nums.elm | 19 |
2 files changed, 60 insertions, 0 deletions
diff --git a/challenge-109/lance-wicks/elm/tests/N.elm b/challenge-109/lance-wicks/elm/tests/N.elm new file mode 100644 index 0000000000..6a81cde5a1 --- /dev/null +++ b/challenge-109/lance-wicks/elm/tests/N.elm @@ -0,0 +1,41 @@ +module N exposing (..) + +import Chowla +import Expect +import Test exposing (..) + + +suite : Test +suite = + describe "Chowla number" + [ test "n 1" <| + \_ -> Chowla.n 1 |> Expect.equal 0 + , test "n 4" <| + \_ -> Chowla.n 4 |> Expect.equal 2 + , test "n 6" <| + \_ -> Chowla.n 6 |> Expect.equal 5 + ] + + +chowla : Test +chowla = + describe "Chowla number logic" + [ test "chowla 2 2" <| + \_ -> Chowla.chowla 2 2 |> Expect.equal 2 + , test "chowla 2 3" <| + \_ -> Chowla.chowla 2 3 |> Expect.equal 0 + , test "chowla 2 4" <| + \_ -> Chowla.chowla 2 4 |> Expect.equal 0 + ] + + +list : Test +list = + describe "First 20 Chowla numbers" + [ test "nums 6" <| + \_ -> Chowla.nums 6 |> Expect.equal [ 0, 0, 0, 2, 0, 5 ] + , test "nums 22" <| + \_ -> Chowla.nums 22 |> Expect.equal [ 0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20, 0, 21, 10, 13 ] + , test "nums 20" <| + \_ -> Chowla.nums 20 |> Expect.equal [ 0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20, 0, 21 ] + ] diff --git a/challenge-109/lance-wicks/elm/tests/Nums.elm b/challenge-109/lance-wicks/elm/tests/Nums.elm new file mode 100644 index 0000000000..8fc89e54b8 --- /dev/null +++ b/challenge-109/lance-wicks/elm/tests/Nums.elm @@ -0,0 +1,19 @@ +module Nums exposing (..) + +import Chowla +import Expect +import Test exposing (..) + + +suite : Test +suite = + describe "Chowla numbers" + [ test "nums 20" <| + \_ -> Chowla.nums 20 |> Expect.equal [ 0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20, 0, 21 ] + , test "nums 18" <| + \_ -> Chowla.nums 18 |> Expect.equal [ 0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20 ] + , test "nums 6" <| + \_ -> Chowla.nums 6 |> Expect.equal [ 0, 0, 0, 2, 0, 5 ] + , test "nums 4" <| + \_ -> Chowla.nums 4 |> Expect.equal [ 0, 0, 0, 2 ] + ] |