Add flower-field, deprecating minesweeper (#175)

* Add `flower-field`, deprecating `minesweeper`

* snake_case replaceEach

---------

Co-authored-by: Anton-4 <[email protected]>

Author: BNAndras

config.json

@@ -739,6 +739,14 @@
         "prerequisites": [],
         "difficulty": 6
       },
+      {
+        "slug": "flower-field",
+        "name": "Flower Field",
+        "uuid": "3d515ca6-aa26-4e4f-a92d-8381ef6d3809",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 6
+      },
       {
         "slug": "go-counting",
         "name": "Go Counting",
@@ -777,7 +785,8 @@
         "uuid": "8d5ea690-9d52-4d0a-a59e-aeec1a03cac7",
         "practices": [],
         "prerequisites": [],
-        "difficulty": 6
+        "difficulty": 6,
+        "status": "deprecated"
       },
       {
         "slug": "palindrome-products",

exercises/practice/flower-field/.docs/instructions.md

@@ -0,0 +1,26 @@
+# Instructions
+
+Your task is to add flower counts to empty squares in a completed Flower Field garden.
+The garden itself is a rectangle board composed of squares that are either empty (`' '`) or a flower (`'*'`).
+
+For each empty square, count the number of flowers adjacent to it (horizontally, vertically, diagonally).
+If the empty square has no adjacent flowers, leave it empty.
+Otherwise replace it with the count of adjacent flowers.
+
+For example, you may receive a 5 x 4 board like this (empty spaces are represented here with the '·' character for display on screen):
+
+```text
+·*·*·
+··*··
+··*··
+·····
+```
+
+Which your code should transform into this:
+
+```text
+1*3*1
+13*31
+·2*2·
+·111·
+```

exercises/practice/flower-field/.docs/introduction.md

@@ -0,0 +1,7 @@
+# Introduction
+
+[Flower Field][history] is a compassionate reimagining of the popular game Minesweeper.
+The object of the game is to find all the flowers in the garden using numeric hints that indicate how many flowers are directly adjacent (horizontally, vertically, diagonally) to a square.
+"Flower Field" shipped in regional versions of Microsoft Windows in Italy, Germany, South Korea, Japan and Taiwan.
+
+[history]: https://web.archive.org/web/20020409051321fw_/http://rcm.usr.dsi.unimi.it/rcmweb/fnm/

exercises/practice/flower-field/.meta/Example.roc

@@ -0,0 +1,56 @@
+module [annotate]
+
+is_flower : List (List U8), I64, I64 -> Result Bool [OutOfBounds]
+is_flower = |rows, nx, ny|
+    x = Num.to_u64_checked(nx)?
+    y = Num.to_u64_checked(ny)?
+    rows
+    |> List.get(y)?
+    |> List.get(x)?
+    |> Bool.is_eq('*')
+    |> Ok
+
+count_neighbors : List (List U8), U64, U64 -> Num *
+count_neighbors = |rows, x, y|
+    [-1, 0, 1]
+    |> List.map(
+        |dy|
+            [-1, 0, 1]
+            |> List.map(
+                |dx|
+                    when is_flower(rows, (Num.to_i64(x) + dx), (Num.to_i64(y) + dy)) is
+                        Ok(flower) -> if flower then 1 else 0
+                        Err(OutOfBounds) -> 0,
+            )
+            |> List.sum,
+    )
+    |> List.sum
+
+annotate : Str -> Str
+annotate = |garden|
+    rows = garden |> Str.to_utf8 |> List.split_on('\n')
+    annotated =
+        rows
+        |> List.map_with_index(
+            |row, y|
+                row
+                |> List.map_with_index(
+                    |cell, x|
+                        if cell == '*' then
+                            '*'
+                        else
+                            when count_neighbors(rows, x, y) is
+                                0 -> ' '
+                                n -> '0' + n,
+                )
+                |> Str.from_utf8,
+        )
+
+    annotated
+    |> List.map(
+        |maybe_row|
+            when maybe_row is
+                Ok(row) -> row
+                Err(_) -> crash("Unreachable"),
+    ) # fromUtf8 cannot fail in the code above
+    |> Str.join_with("\n")

exercises/practice/flower-field/.meta/config.json

@@ -0,0 +1,20 @@
+{
+  "authors": [
+    "ageron"
+  ],
+  "contributors": [
+    "BNAndras"
+  ],
+  "files": {
+    "solution": [
+      "FlowerField.roc"
+    ],
+    "test": [
+      "flower-field-test.roc"
+    ],
+    "example": [
+      ".meta/Example.roc"
+    ]
+  },
+  "blurb": "Mark all the flowers in a garden."
+}

exercises/practice/flower-field/.meta/template.j2

@@ -0,0 +1,15 @@
+{%- import "generator_macros.j2" as macros with context -%}
+{{ macros.canonical_ref() }}
+{{ macros.header() }}
+
+import {{ exercise | to_pascal }} exposing [{{ cases[0]["property"] | to_snake }}]
+
+{% for case in cases -%}
+# {{ case["description"] }}
+expect
+    garden = {{ case["input"]["garden"] | to_roc_multiline_string | replace(" ", "·") | indent(8) }} |> Str.replace_each "·" " "
+    result = {{ case["property"] | to_snake }} garden
+    expected = {{ case["expected"] | to_roc_multiline_string | replace(" ", "·") | indent(8) }}  |> Str.replace_each "·" " "
+    result == expected
+
+{% endfor %}

exercises/practice/flower-field/.meta/tests.toml

@@ -0,0 +1,46 @@
+# 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.
+
+[237ff487-467a-47e1-9b01-8a891844f86c]
+description = "no rows"
+
+[4b4134ec-e20f-439c-a295-664c38950ba1]
+description = "no columns"
+
+[d774d054-bbad-4867-88ae-069cbd1c4f92]
+description = "no flowers"
+
+[225176a0-725e-43cd-aa13-9dced501f16e]
+description = "garden full of flowers"
+
+[3f345495-f1a5-4132-8411-74bd7ca08c49]
+description = "flower surrounded by spaces"
+
+[6cb04070-4199-4ef7-a6fa-92f68c660fca]
+description = "space surrounded by flowers"
+
+[272d2306-9f62-44fe-8ab5-6b0f43a26338]
+description = "horizontal line"
+
+[c6f0a4b2-58d0-4bf6-ad8d-ccf4144f1f8e]
+description = "horizontal line, flowers at edges"
+
+[a54e84b7-3b25-44a8-b8cf-1753c8bb4cf5]
+description = "vertical line"
+
+[b40f42f5-dec5-4abc-b167-3f08195189c1]
+description = "vertical line, flowers at edges"
+
+[58674965-7b42-4818-b930-0215062d543c]
+description = "cross"
+
+[dd9d4ca8-9e68-4f78-a677-a2a70fd7a7b8]
+description = "large garden"

exercises/practice/flower-field/FlowerField.roc

@@ -0,0 +1,5 @@
+module [annotate]
+
+annotate : Str -> Str
+annotate = |garden|
+    crash("Please implement the 'annotate' function")