Tisbury Treasure Hunt

type alias IntStringTuple = (Int, String)

aTuple : IntStringTuple
aTuple = (123, "elements can be of differing types")

anotherTuple : (String, String)
anotherTuple = Tuple.pair "this time it's" "two strings"
    --> ("this time it's", "two strings")

Tuple.first aTuple
    --> 123

Tuple.second aTuple
    --> "elements can be of differing types"

repeatString : (Int, String) -> Bool
repeatString aTuple =
let
    (aNumber, aString) = aTuple
in
    String.repeat aNumber aString

repeatStringAgain : (Int, String) -> Bool
repeatStringAgain (aNumber, aString) = String.repeat aNumber aString

has123 : (Int, String, Bool) -> Bool
has123 aTuple =
    case aTuple of
        (123, _, _) ->
            True
        (_, "123", _) ->
            True
        (_, _, True) ->
            True
        _ ->
            False

Instructions

Aazra and Rui are designing a pirate-themed treasure hunt. There is a list of treasures with map locations, the other a list of place names with map locations.

Players will travel around the map picking up treasures as they go. Treasure and place locations are formatted differently, to add an extra challenge. There are also some special places, where certain treasures can be swapped for certain other ones, to add an extra twist to the game. Your job is to write functions to help them with their game.

1. Convert locations

Implement the placeLocationToTreasureLocation function that takes a Place Location (such as ('C', 1)) and converts it to a Treasure Location (such as (1, 'C')).

placeLocationToTreasureLocation ('C', 1)
--> (1,'C')

2. Compare Treasure and Place locations

Implement the treasureLocationMatchesPlaceLocation function that takes a PlaceLocation (such as ('C', 1)) and returns true if it matches a TreasureLocation (such as (1, 'C')).

treasureLocationMatchesPlaceLocation ('C', 1) (1, 'C')
--> true

treasureLocationMatchesPlaceLocation ('C', 1) (2, 'C')
--> false

3. Count Treasure Locations

Implement the countPlaceTreasures function, that takes a Place (such as ("Aqua Lagoon (Island of Mystery)", ('F', 1))), and the list of Treasures, and returns the number of treasures that can be found there.

place = ("Aqua Lagoon (Island of Mystery)", ('F', 1))

countPlaceTreasures place treasures =
--> 2

4. Special Places

Implement the specialCaseSwapPossible function, which takes a Treasure (such as ("Amethyst Octopus", (1, 'F'))) and a Place (such as ("Seaside Cottages ", ('C', 1))), and returns true for the following combinations:

• The Brass Spyglass can be swapped for any other treasure at the Abandoned Lighthouse
• The Amethyst Octopus can be swapped for the Crystal Crab or the Glass Starfish at the Stormy Breakwater
• The Vintage Pirate Hat can be swapped for the Model Ship in Large Bottle or the Antique Glass Fishnet Float at the Harbor Managers Office

Try to implement this function as a case statement with an ad hoc tuple, instead of using if statements (this is a common idiom in Elm).