Contents

module Series exposing (..)

import String
import List
import Result


slices : Int -> String -> Result String (List (List Int))
slices size input =
    if size < 1 then
        Err ("Invalid size: " ++ toString size)
    else
        String.split "" input
            |> List.map String.toInt
            |> combine
            |> Result.map (takeRuns size)


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


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

Version data entries

322 entries across 322 versions & 1 rubygems

Version	Path
trackler-2.2.1.104	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.103	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.102	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.101	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.100	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.99	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.98	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.97	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.96	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.95	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.94	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.93	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.92	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.91	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.90	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.89	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.88	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.87	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.86	tracks/elm/exercises/series/Series.example.elm
trackler-2.2.1.85	tracks/elm/exercises/series/Series.example.elm