tresure-chest

treasure-chest/src/treasure_chest.gleam

@@ -0,0 +1,21 @@
+pub type TreasureChest(a) {
+  TreasureChest(String, a)
+}
+
+pub type UnlockResult(a) {
+  Unlocked(a)
+  WrongPassword
+}
+
+pub fn get_treasure(
+  chest: TreasureChest(treasure),
+  password: String,
+) -> UnlockResult(treasure) {
+  case chest {
+    TreasureChest(pass, a) ->
+      case pass == password {
+        False -> WrongPassword
+        True -> Unlocked(a)
+      }
+  }
+}