reduce lite

reduce-lite.elm

add : Int -> Int -> Int
add a b =
    a + b


dashify : String -> String -> String
dashify a b =
    if a == "" then
        b

    else
        a ++ "-" ++ b


reduce : (a -> a -> a) -> a -> Maybe (List a) -> a
reduce func acc list =
    case list of
        Nothing ->
            acc

        Just l ->
            let
                next =
                    List.head l

                res =
                    case next of
                        Nothing ->
                            acc

                        Just n ->
                            func acc n
            in
            reduce func res <| List.tail l