Contents

module LargestSeriesProduct exposing (largestProduct)

import String


largestProduct : Int -> String -> Maybe Int
largestProduct length series =
    if length < 0 then
        Nothing
    else if length == 0 then
        Just 1
    else
        String.split "" series
            |> List.map String.toInt
            |> combineResults
            |> Result.toMaybe
            |> Maybe.map
                (takeRuns length
                    >> List.map List.product
                    >> List.maximum
                )
            |> joinMaybe


takeRuns : Int -> List a -> List (List a)
takeRuns size items =
    let
        candidate =
            List.take size items
    in
    if List.length candidate < size || size < 1 then
        []
    else
        candidate :: takeRuns size (List.drop 1 items)



-- inlined from Results.Extra and Maybe.Extra


combineResults : List (Result x a) -> Result x (List a)
combineResults =
    List.foldr (Result.map2 (::)) (Ok [])


joinMaybe : Maybe (Maybe a) -> Maybe a
joinMaybe mx =
    case mx of
        Just x ->
            x

        Nothing ->
            Nothing

Version data entries

74 entries across 74 versions & 1 rubygems

Version	Path
trackler-2.2.1.139	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.138	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.137	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.136	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.135	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.134	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.133	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.132	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.131	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.130	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.129	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.128	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.127	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.126	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.125	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.124	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.123	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.122	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.121	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm
trackler-2.2.1.120	tracks/elm/exercises/largest-series-product/LargestSeriesProduct.example.elm