aboutsummaryrefslogtreecommitdiff
path: root/challenge-109/lance-wicks/elm/tests/Nums.elm
blob: 8fc89e54b8e62d3d81f94871817f3b725b850c8f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 ]
        ]