Add space-age exercise

config.json

@@ -19,15 +19,9 @@
     "average_run_time": 2
   },
   "files": {
-    "solution": [
-      "%{pascal_slug}.roc"
-    ],
-    "test": [
-      "%{kebab_slug}-test.roc"
-    ],
-    "example": [
-      ".meta/Example.roc"
-    ]
+    "solution": ["%{pascal_slug}.roc"],
+    "test": ["%{kebab_slug}-test.roc"],
+    "example": [".meta/Example.roc"]
   },
   "exercises": {
     "practice": [
@@ -127,6 +121,14 @@
         "prerequisites": [],
         "difficulty": 2
       },
+      {
+        "slug": "space-age",
+        "name": "Space Age",
+        "uuid": "7f031524-9eb8-4c7d-af64-105708b40e9c",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 2
+      },
       {
         "slug": "triangle",
         "name": "Triangle",

exercises/practice/space-age/.docs/instructions.md

@@ -0,0 +1,28 @@
+# Instructions
+
+Given an age in seconds, calculate how old someone would be on a planet in our Solar System.
+
+One Earth year equals 365.25 Earth days, or 31,557,600 seconds.
+If you were told someone was 1,000,000,000 seconds old, their age would be 31.69 Earth-years.
+
+For the other planets, you have to account for their orbital period in Earth Years:
+
+| Planet  | Orbital period in Earth Years |
+| ------- | ----------------------------- |
+| Mercury | 0.2408467                     |
+| Venus   | 0.61519726                    |
+| Earth   | 1.0                           |
+| Mars    | 1.8808158                     |
+| Jupiter | 11.862615                     |
+| Saturn  | 29.447498                     |
+| Uranus  | 84.016846                     |
+| Neptune | 164.79132                     |
+
+~~~~exercism/note
+The actual length of one complete orbit of the Earth around the sun is closer to 365.256 days (1 sidereal year).
+The Gregorian calendar has, on average, 365.2425 days.
+While not entirely accurate, 365.25 is the value used in this exercise.
+See [Year on Wikipedia][year] for more ways to measure a year.
+
+[year]: https://en.wikipedia.org/wiki/Year#Summary
+~~~~

exercises/practice/space-age/.docs/introduction.md

@@ -0,0 +1,20 @@
+# Introduction
+
+The year is 2525 and you've just embarked on a journey to visit all planets in the Solar System (Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus and Neptune).
+The first stop is Mercury, where customs require you to fill out a form (bureaucracy is apparently _not_ Earth-specific).
+As you hand over the form to the customs officer, they scrutinize it and frown.
+"Do you _really_ expect me to believe you're just 50 years old?
+You must be closer to 200 years old!"
+
+Amused, you wait for the customs officer to start laughing, but they appear to be dead serious.
+You realize that you've entered your age in _Earth years_, but the officer expected it in _Mercury years_!
+As Mercury's orbital period around the sun is significantly shorter than Earth, you're actually a lot older in Mercury years.
+After some quick calculations, you're able to provide your age in Mercury Years.
+The customs officer smiles, satisfied, and waves you through.
+You make a mental note to pre-calculate your planet-specific age _before_ future customs checks, to avoid such mix-ups.
+
+~~~~exercism/note
+If you're wondering why Pluto didn't make the cut, go watch [this YouTube video][pluto-video].
+
+[pluto-video]: https://www.youtube.com/watch?v=Z_2gbGXzFbs
+~~~~

exercises/practice/space-age/.meta/Example.roc

@@ -0,0 +1,23 @@
+module [age]
+
+round = \value, { digits ? 2 } ->
+    pow = 10.0 |> Num.pow digits
+    value * pow |> Num.round |> Num.toFrac |> Num.div pow
+
+age = \planet, seconds ->
+    periodInEarthYears = orbitalPeriodInEarthYears? planet
+    periodInSeconds = periodInEarthYears * 365.25 * 24 * 60 * 60
+    planetYears = seconds / periodInSeconds
+    Ok (round planetYears {})
+
+orbitalPeriodInEarthYears = \planet ->
+    when planet is
+        "Mercury" -> Ok 0.2408467
+        "Venus" -> Ok 0.61519726
+        "Earth" -> Ok 1.0
+        "Mars" -> Ok 1.8808158
+        "Jupiter" -> Ok 11.862615
+        "Saturn" -> Ok 29.447498
+        "Uranus" -> Ok 84.016846
+        "Neptune" -> Ok 164.79132
+        _ -> Err NotAPlanet

exercises/practice/space-age/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "ageron"
+  ],
+  "files": {
+    "solution": [
+      "SpaceAge.roc"
+    ],
+    "test": [
+      "space-age-test.roc"
+    ],
+    "example": [
+      ".meta/Example.roc"
+    ]
+  },
+  "blurb": "Given an age in seconds, calculate how old someone is in terms of a given planet's solar years.",
+  "source": "Partially inspired by Chapter 1 in Chris Pine's online Learn to Program tutorial.",
+  "source_url": "https://pine.fm/LearnToProgram/?Chapter=01"
+}

exercises/practice/space-age/.meta/template.j2

@@ -0,0 +1,17 @@
+{%- 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"]["planet"] | to_roc }} {{ case["input"]["seconds"] }}
+{%- if case["expected"]["error"] %}
+    result == Err {{ case["expected"]["error"] | to_pascal }}
+{%- else %}
+    result == Ok {{ case["expected"] }}
+{%- endif %}
+
+{% endfor %}

exercises/practice/space-age/.meta/tests.toml

@@ -0,0 +1,37 @@
+# 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.
+
+[84f609af-5a91-4d68-90a3-9e32d8a5cd34]
+description = "age on Earth"
+
+[ca20c4e9-6054-458c-9312-79679ffab40b]
+description = "age on Mercury"
+
+[502c6529-fd1b-41d3-8fab-65e03082b024]
+description = "age on Venus"
+
+[9ceadf5e-a0d5-4388-9d40-2c459227ceb8]
+description = "age on Mars"
+
+[42927dc3-fe5e-4f76-a5b5-f737fc19bcde]
+description = "age on Jupiter"
+
+[8469b332-7837-4ada-b27c-00ee043ebcad]
+description = "age on Saturn"
+
+[999354c1-76f8-4bb5-a672-f317b6436743]
+description = "age on Uranus"
+
+[80096d30-a0d4-4449-903e-a381178355d8]
+description = "age on Neptune"
+
+[57b96e2a-1178-40b7-b34d-f3c9c34e4bf4]
+description = "invalid planet causes error"

exercises/practice/space-age/SpaceAge.roc

@@ -0,0 +1,4 @@
+module [age]
+
+age = \planet, seconds ->
+    crash "Please implement the 'age' function"

exercises/practice/space-age/space-age-test.roc

@@ -0,0 +1,59 @@
+# These tests are auto-generated with test data from:
+# https://github.com/exercism/problem-specifications/tree/main/exercises/space-age/canonical-data.json
+# File last updated on 2024-08-29
+app [main] {
+    pf: platform "https://github.com/roc-lang/basic-cli/releases/download/0.14.0/dC5ceT962N_4jmoyoffVdphJ_4GlW3YMhAPyGPr-nU0.tar.br",
+}
+
+import pf.Task exposing [Task]
+
+main =
+    Task.ok {}
+
+import SpaceAge exposing [age]
+
+# age on Earth
+expect
+    result = age "Earth" 1000000000
+    result == Ok 31.69
+
+# age on Mercury
+expect
+    result = age "Mercury" 2134835688
+    result == Ok 280.88
+
+# age on Venus
+expect
+    result = age "Venus" 189839836
+    result == Ok 9.78
+
+# age on Mars
+expect
+    result = age "Mars" 2129871239
+    result == Ok 35.88
+
+# age on Jupiter
+expect
+    result = age "Jupiter" 901876382
+    result == Ok 2.41
+
+# age on Saturn
+expect
+    result = age "Saturn" 2000000000
+    result == Ok 2.15
+
+# age on Uranus
+expect
+    result = age "Uranus" 1210123456
+    result == Ok 0.46
+
+# age on Neptune
+expect
+    result = age "Neptune" 1821023456
+    result == Ok 0.35
+
+# invalid planet causes error
+expect
+    result = age "Sun" 680804807
+    result == Err NotAPlanet
+