Problem 17

Split a list into two lists. The length of the first part is specified by the caller.

Example

split (List.range 1 10) 3 == ([1, 2, 3], [4, 5, 6, 7, 8, 9, 10])

Unit Test

import Html exposing (text)
import List 


split : List a -> Int -> (List a, List a)
split list count =
    -- your implementation here
    ([], [])


main =
    text
        (if (test) then
            "Your implementation passed all tests."
         else
            "Your implementation failed at least one test."
        )


test : Bool
test =
    List.all (\(result, expect) -> result == expect)
        [ ( split (List.range 1 5) 0, ([], [1, 2, 3, 4, 5]) )
        , ( split (List.range 1 5) 2, ([1, 2], [3, 4, 5]) )
        , ( split (List.range 1 5) 3, ([1, 2, 3], [4, 5]) )
        , ( split (List.range 1 5) 4, ([1, 2, 3, 4], [5]) )
        , ( split (List.range 1 5) 5, ([1, 2, 3, 4, 5], []) )
        , ( split (List.range 1 5) 6, ([1, 2, 3, 4, 5], []) )
        , ( split (List.range 1 5) (-1), ([], [1, 2, 3, 4, 5]) )
        ]
        && List.all (\(result, expect) -> result == expect)
            [ ( split [ "aab", "b", "c", "aa" ] 2, ([ "aab", "b"],["c", "aa" ]))
            ]

Hints

1. Take a look in the Elm core package List for a couple functions you can drop in.

Solutions

Solutions