Add flower-field

config.json

@@ -392,6 +392,14 @@
         "prerequisites": [],
         "difficulty": 5
       },
+      {
+        "slug": "flower-field",
+        "name": "Flower Field",
+        "uuid": "6c162b52-01dc-4845-af09-1af65f112946",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 5
+      },
       {
         "slug": "matching-brackets",
         "name": "Matching Brackets",

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/config.json

@@ -0,0 +1,17 @@
+{
+  "authors": [
+    "BNAndras"
+  ],
+  "files": {
+    "solution": [
+      "flower-field.red"
+    ],
+    "test": [
+      "flower-field-test.red"
+    ],
+    "example": [
+      ".meta/example.red"
+    ]
+  },
+  "blurb": "Mark all the flowers in a garden."
+}

exercises/practice/flower-field/.meta/example.red

@@ -0,0 +1,60 @@
+Red [
+	description: {"Flower Field" exercise solution for exercism platform}
+	author: "BNAndras"
+]
+
+annotate: function [
+    garden
+][
+    rows: length? garden
+    cols: length? first garden
+    result: []
+
+    repeat i rows [
+        marked-row: copy ""
+        current-row: pick garden i
+
+        repeat j cols [
+            cell: pick current-row j
+
+            either cell = #"*" [
+                append marked-row "*"
+            ][
+                count: 0
+                min-row: max 1 (i - 1)
+                max-row: min rows (i + 1)
+                min-col: max 1 (j - 1)
+                max-col: min cols (j + 1)
+
+				row-indices: collect [
+					repeat k (max-row - min-row + 1) [keep min-row + k - 1]
+				]
+                col-indices: collect [
+					repeat k (max-col - min-col + 1) [keep min-col + k - 1]
+				]
+
+				foreach ni row-indices [
+                    foreach nj col-indices [
+                        if not and~ ni = i nj = j [
+                            neighbor-row: pick garden ni
+                            neighbor: pick neighbor-row nj
+                            if neighbor = #"*" [
+                                count: count + 1
+                            ]
+                        ]
+                    ]
+                ]
+
+                either count = 0 [
+                    append marked-row " "
+                ][
+                    append marked-row to string! count
+                ]
+            ]
+        ]
+
+        append result marked-row
+    ]
+
+    result
+]

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/flower-field-test.red

@@ -0,0 +1,120 @@
+Red [
+	description: {Tests for "Flower Field" Exercism exercise}
+	author: "loziniak"
+]
+
+#include %testlib.red
+
+test-init/limit %flower-field.red 1
+; test-init/limit %.meta/example.red 1						; test example solution
+
+canonical-cases: [#[
+    description: "no rows"
+    input: #[
+        garden: []
+    ]
+    expected: []
+    function: "annotate"
+    uuid: "237ff487-467a-47e1-9b01-8a891844f86c"
+] #[
+    description: "no columns"
+    input: #[
+        garden: [""]
+    ]
+    expected: [""]
+    function: "annotate"
+    uuid: "4b4134ec-e20f-439c-a295-664c38950ba1"
+] #[
+    description: "no flowers"
+    input: #[
+        garden: ["   " "   " "   "]
+    ]
+    expected: ["   " "   " "   "]
+    function: "annotate"
+    uuid: "d774d054-bbad-4867-88ae-069cbd1c4f92"
+] #[
+    description: "garden full of flowers"
+    input: #[
+        garden: ["***" "***" "***"]
+    ]
+    expected: ["***" "***" "***"]
+    function: "annotate"
+    uuid: "225176a0-725e-43cd-aa13-9dced501f16e"
+] #[
+    description: "flower surrounded by spaces"
+    input: #[
+        garden: ["   " " * " "   "]
+    ]
+    expected: ["111" "1*1" "111"]
+    function: "annotate"
+    uuid: "3f345495-f1a5-4132-8411-74bd7ca08c49"
+] #[
+    description: "space surrounded by flowers"
+    input: #[
+        garden: ["***" "* *" "***"]
+    ]
+    expected: ["***" "*8*" "***"]
+    function: "annotate"
+    uuid: "6cb04070-4199-4ef7-a6fa-92f68c660fca"
+] #[
+    description: "horizontal line"
+    input: #[
+        garden: [" * * "]
+    ]
+    expected: ["1*2*1"]
+    function: "annotate"
+    uuid: "272d2306-9f62-44fe-8ab5-6b0f43a26338"
+] #[
+    description: "horizontal line, flowers at edges"
+    input: #[
+        garden: ["*   *"]
+    ]
+    expected: ["*1 1*"]
+    function: "annotate"
+    uuid: "c6f0a4b2-58d0-4bf6-ad8d-ccf4144f1f8e"
+] #[
+    description: "vertical line"
+    input: #[
+        garden: [" " "*" " " "*" " "]
+    ]
+    expected: ["1" "*" "2" "*" "1"]
+    function: "annotate"
+    uuid: "a54e84b7-3b25-44a8-b8cf-1753c8bb4cf5"
+] #[
+    description: "vertical line, flowers at edges"
+    input: #[
+        garden: ["*" " " " " " " "*"]
+    ]
+    expected: ["*" "1" " " "1" "*"]
+    function: "annotate"
+    uuid: "b40f42f5-dec5-4abc-b167-3f08195189c1"
+] #[
+    description: "cross"
+    input: #[
+        garden: ["  *  " "  *  " "*****" "  *  " "  *  "]
+    ]
+    expected: [" 2*2 " "25*52" "*****" "25*52" " 2*2 "]
+    function: "annotate"
+    uuid: "58674965-7b42-4818-b930-0215062d543c"
+] #[
+    description: "large garden"
+    input: #[
+        garden: [" *  * " "  *   " "    * " "   * *" " *  * " "      "]
+    ]
+    expected: ["1*22*1" "12*322" " 123*2" "112*4*" "1*22*2" "111111"]
+    function: "annotate"
+    uuid: "dd9d4ca8-9e68-4f78-a677-a2a70fd7a7b8"
+]]
+
+
+foreach c-case canonical-cases [
+	case-code: reduce [
+		'expect c-case/expected compose [
+			(to word! c-case/function) (values-of c-case/input)
+		] 
+	]
+
+	test c-case/description case-code
+]
+
+test-results/print

exercises/practice/flower-field/flower-field.red

@@ -0,0 +1,11 @@
+Red [
+	description: {"Flower Field" exercise solution for exercism platform}
+	author: "" ; you can write your name here, in quotes
+]
+
+annotate: function [
+	garden
+] [
+	cause-error 'user 'message "You need to implement annotate function."
+]
+