parser.elm

parser.elm

parseStep : List Int -> Parser (Step (List Int) (List Int))
parseStep acc =
    oneOf
        [ end |> map (\_ -> Done (List.reverse acc))
        , chompWhile Char.isDigit
            |> getChompedString
            |> andThen
                (\s ->
                    case String.toInt s of
                        Just n ->
                            succeed <| Loop (n :: acc)

                        Nothing ->
                            problem "Not a number"
                )
        , symbol "."
            |> andThen (\_ -> succeed <| Loop acc)
        ]