Add roman-numerals exercise

config.json

@@ -160,17 +160,17 @@
         "difficulty": 2
       },
       {
-        "slug": "rna-transcription",
-        "name": "RNA Transcription",
-        "uuid": "602814f7-dc7b-490e-9242-aad924c81ae4",
+        "slug": "resistor-color-duo",
+        "name": "Resistor Color Duo",
+        "uuid": "04ac004e-4f05-467b-833e-a180a8431700",
         "practices": [],
         "prerequisites": [],
         "difficulty": 2
       },
       {
-        "slug": "resistor-color-duo",
-        "name": "Resistor Color Duo",
-        "uuid": "04ac004e-4f05-467b-833e-a180a8431700",
+        "slug": "rna-transcription",
+        "name": "RNA Transcription",
+        "uuid": "602814f7-dc7b-490e-9242-aad924c81ae4",
         "practices": [],
         "prerequisites": [],
         "difficulty": 2
@@ -183,6 +183,14 @@
         "prerequisites": [],
         "difficulty": 2
       },
+      {
+        "slug": "roman-numerals",
+        "name": "Roman Numerals",
+        "uuid": "be4df7f4-e7fa-4575-bdfa-16e111157199",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 2
+      },
       {
         "slug": "scrabble-score",
         "name": "Scrabble Score",
@@ -200,17 +208,17 @@
         "difficulty": 2
       },
       {
-        "slug": "space-age",
-        "name": "Space Age",
-        "uuid": "7f031524-9eb8-4c7d-af64-105708b40e9c",
+        "slug": "series",
+        "name": "Series",
+        "uuid": "fac9c337-2216-414d-a7be-50205d161f3f",
         "practices": [],
         "prerequisites": [],
         "difficulty": 2
       },
       {
-        "slug": "series",
-        "name": "Series",
-        "uuid": "fac9c337-2216-414d-a7be-50205d161f3f",
+        "slug": "space-age",
+        "name": "Space Age",
+        "uuid": "7f031524-9eb8-4c7d-af64-105708b40e9c",
         "practices": [],
         "prerequisites": [],
         "difficulty": 2

exercises/practice/roman-numerals/.docs/instructions.md

@@ -0,0 +1,12 @@
+# Introduction
+
+Your task is to convert a number from Arabic numerals to Roman numerals.
+
+For this exercise, we are only concerned about traditional Roman numerals, in which the largest number is MMMCMXCIX (or 3,999).
+
+~~~~exercism/note
+There are lots of different ways to convert between Arabic and Roman numerals.
+We recommend taking a naive approach first to familiarise yourself with the concept of Roman numerals and then search for more efficient methods.
+
+Make sure to check out our Deep Dive video at the end to explore the different approaches you can take!
+~~~~

exercises/practice/roman-numerals/.docs/introduction.md

@@ -0,0 +1,59 @@
+# Description
+
+Today, most people in the world use Arabic numerals (0–9).
+But if you travelled back two thousand years, you'd find that most Europeans were using Roman numerals instead.
+
+To write a Roman numeral we use the following Latin letters, each of which has a value:
+
+| M    | D   | C   | L   | X   | V   | I   |
+| ---- | --- | --- | --- | --- | --- | --- |
+| 1000 | 500 | 100 | 50  | 10  | 5   | 1   |
+
+A Roman numeral is a sequence of these letters, and its value is the sum of the letters' values.
+For example, `XVIII` has the value 18 (`10 + 5 + 1 + 1 + 1 = 18`).
+
+There's one rule that makes things trickier though, and that's that **the same letter cannot be used more than three times in succession**.
+That means that we can't express numbers such as 4 with the seemingly natural `IIII`.
+Instead, for those numbers, we use a subtraction method between two letters.
+So we think of `4` not as `1 + 1 + 1 + 1` but instead as `5 - 1`.
+And slightly confusingly to our modern thinking, we write the smaller number first.
+This applies only in the following cases: 4 (`IV`), 9 (`IX`), 40 (`XL`), 90 (`XC`), 400 (`CD`) and 900 (`CM`).
+
+Order matters in Roman numerals!
+Letters (and the special compounds above) must be ordered by decreasing value from left to right.
+
+Here are some examples:
+
+```text
+ 105 => CV
+---- => --
+ 100 => C
++  5 =>  V
+```
+
+```text
+ 106 => CVI
+---- => --
+ 100 => C
++  5 =>  V
++  1 =>   I
+```
+
+```text
+ 104 => CIV
+---- => ---
+ 100 => C
++  4 =>  IV
+```
+
+And a final more complex example:
+
+```text
+ 1996 => MCMXCVI
+----- => -------
+ 1000 => M
++ 900 =>  CM
++  90 =>    XC
++   5 =>      V
++   1 =>       I
+```

exercises/practice/roman-numerals/.meta/Example.roc

@@ -0,0 +1,18 @@
+module [roman]
+
+roman : U64 -> Result Str [InvalidNumber U64]
+roman = \number ->
+    if number == 0 || number > 3999 then
+        Err (InvalidNumber number)
+        else
+
+    convert = \digit, x1, x5, x10 ->
+        when digit is
+            4 -> "$(x1)$(x5)"
+            9 -> "$(x1)$(x10)"
+            n -> if n <= 3 then Str.repeat x1 n else "$(x5)$(Str.repeat x1 (n - 5))"
+    thousands = convert (number // 1000) "M" "?" "?"
+    hundreds = convert (number % 1000 // 100) "C" "D" "M"
+    tens = convert (number % 100 // 10) "X" "L" "C"
+    units = convert (number % 10) "I" "V" "X"
+    Ok "$(thousands)$(hundreds)$(tens)$(units)"

exercises/practice/roman-numerals/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "ageron"
+  ],
+  "files": {
+    "solution": [
+      "RomanNumerals.roc"
+    ],
+    "test": [
+      "roman-numerals-test.roc"
+    ],
+    "example": [
+      ".meta/Example.roc"
+    ]
+  },
+  "blurb": "Convert modern Arabic numbers into Roman numerals.",
+  "source": "The Roman Numeral Kata",
+  "source_url": "https://codingdojo.org/kata/RomanNumerals/"
+}

exercises/practice/roman-numerals/.meta/template.j2

@@ -0,0 +1,13 @@
+{%- import "generator_macros.j2" as macros with context -%}
+{{ macros.canonical_ref() }}
+{{ macros.header() }}
+
+import {{ exercise | to_pascal }} exposing [{{ cases[0]["property"] | to_camel }}]
+
+{% for case in cases -%}
+# {{ case["description"] }}
+expect
+    result = {{ case["property"] | to_camel }} {{ case["input"]["number"] | to_roc }}
+    result == Ok {{ case["expected"] | to_roc }}
+
+{% endfor %}

exercises/practice/roman-numerals/.meta/tests.toml

@@ -0,0 +1,91 @@
+# This is an auto-generated file.
+#
+# Regenerating this file via `configlet sync` will:
+# - Recreate every `description` key/value pair
+# - Recreate every `reimplements` key/value pair, where they exist in problem-specifications
+# - Remove any `include = true` key/value pair (an omitted `include` key implies inclusion)
+# - Preserve any other key/value pair
+#
+# As user-added comments (using the # character) will be removed when this file
+# is regenerated, comments can be added via a `comment` key.
+
+[19828a3a-fbf7-4661-8ddd-cbaeee0e2178]
+description = "1 is I"
+
+[f088f064-2d35-4476-9a41-f576da3f7b03]
+description = "2 is II"
+
+[b374a79c-3bea-43e6-8db8-1286f79c7106]
+description = "3 is III"
+
+[05a0a1d4-a140-4db1-82e8-fcc21fdb49bb]
+description = "4 is IV"
+
+[57c0f9ad-5024-46ab-975d-de18c430b290]
+description = "5 is V"
+
+[20a2b47f-e57f-4797-a541-0b3825d7f249]
+description = "6 is VI"
+
+[ff3fb08c-4917-4aab-9f4e-d663491d083d]
+description = "9 is IX"
+
+[6d1d82d5-bf3e-48af-9139-87d7165ed509]
+description = "16 is XVI"
+
+[2bda64ca-7d28-4c56-b08d-16ce65716cf6]
+description = "27 is XXVII"
+
+[a1f812ef-84da-4e02-b4f0-89c907d0962c]
+description = "48 is XLVIII"
+
+[607ead62-23d6-4c11-a396-ef821e2e5f75]
+description = "49 is XLIX"
+
+[d5b283d4-455d-4e68-aacf-add6c4b51915]
+description = "59 is LIX"
+
+[4465ffd5-34dc-44f3-ada5-56f5007b6dad]
+description = "66 is LXVI"
+
+[46b46e5b-24da-4180-bfe2-2ef30b39d0d0]
+description = "93 is XCIII"
+
+[30494be1-9afb-4f84-9d71-db9df18b55e3]
+description = "141 is CXLI"
+
+[267f0207-3c55-459a-b81d-67cec7a46ed9]
+description = "163 is CLXIII"
+
+[902ad132-0b4d-40e3-8597-ba5ed611dd8d]
+description = "166 is CLXVI"
+
+[cdb06885-4485-4d71-8bfb-c9d0f496b404]
+description = "402 is CDII"
+
+[6b71841d-13b2-46b4-ba97-dec28133ea80]
+description = "575 is DLXXV"
+
+[dacb84b9-ea1c-4a61-acbb-ce6b36674906]
+description = "666 is DCLXVI"
+
+[432de891-7fd6-4748-a7f6-156082eeca2f]
+description = "911 is CMXI"
+
+[e6de6d24-f668-41c0-88d7-889c0254d173]
+description = "1024 is MXXIV"
+
+[efbe1d6a-9f98-4eb5-82bc-72753e3ac328]
+description = "1666 is MDCLXVI"
+
+[bb550038-d4eb-4be2-a9ce-f21961ac3bc6]
+description = "3000 is MMM"
+
+[3bc4b41c-c2e6-49d9-9142-420691504336]
+description = "3001 is MMMI"
+
+[2f89cad7-73f6-4d1b-857b-0ef531f68b7e]
+description = "3888 is MMMDCCCLXXXVIII"
+
+[4e18e96b-5fbb-43df-a91b-9cb511fe0856]
+description = "3999 is MMMCMXCIX"

exercises/practice/roman-numerals/RomanNumerals.roc

@@ -0,0 +1,5 @@
+module [roman]
+
+roman : U64 -> Result Str _
+roman = \number ->
+    crash "Please implement the 'roman' function"