Begin calculating points for a route

I can begin writing a solve function:

    solve :: [City] -> Int -> [Route]

The second parameter will be the maximum number of wagons we have.