Tisbury Treasure Hunt

Instructions

Azara and Rui are teammates competing in a pirate-themed treasure hunt. One has a list of treasures with map coordinates, the other a list of location names with map coordinates. They've also been given blank maps with a starting place marked YOU ARE HERE.

But things are a bit disorganized: Azara's coordinates appear to be formatted and sorted differently from Rui's, and they have to keep looking from one list to the other to figure out which treasures go with which locations. Being budding fsharpies, they have come to you for help in writing a small program (a set of functions, really) to better organize their hunt information.

1. Extract coordinates

Implement the getCooordinate() function that takes a (treasure, coordinate) pair from Azara's list and returns only the extracted map coordinate.

getCoordinate ("Scrimshaw Whale's Tooth", "2A")
// "2A"

2. Format coordinates

Implement the convertCoordinate() function that takes a coordinate in the format "2A" and returns a tuple in the format (2, 'A').

convertCoordinate "2A"
// (2, 'A')

3. Match coordinates

Implement the compareRecords() function that takes a (treasure, coordinate) pair and a (location, coordinate, quadrant) record and compares coordinates from each. Return true if the coordinates "match", and return false if they do not. Re-format coordinates as needed for accurate comparison.

compareRecords ("Brass Spyglass", "4B") ("Seaside Cottages", (1, 'C'), "blue")
// false

compareRecords ("Model Ship in Large Bottle", "8A") ("Harbor Managers Office", (8, 'A'), "purple")
// true

4. Combine matched records

Implement the createrecord() function that takes a (treasure, coordinate) pair from Azara's list and a (location, coordinate, quadrant) record from Rui's list and returns (coordinate, location, quadrant, treasure) if the coordinates match. If the coordinates do not match, return a tuple of the same shape but filled with "". Re-format coordinates as needed for accurate comparison.

createRecord ("Brass Spyglass", "4B") ("Abandoned Lighthouse", (4, 'B'), "Blue")
("4B", "Abandoned Lighthouse", "Blue", "Brass Spyglass")

createRecord ("Brass Spyglass", "4B") ("Seaside Cottages", (1, 'C'), "Blue")
("", "", "", "")