mirror of
https://github.com/correl/elm.git
synced 2024-12-22 11:09:08 +00:00
34 lines
681 B
Text
34 lines
681 B
Text
|
module Series (..) where
|
||
|
|
|
||
|
|
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 [])
|