flower-field replaces minesweeper (#541)

Author: keiravillekode

.github/Dockerfile

@@ -14,7 +14,6 @@ RUN cd /home/opam/opam-repository \
 RUN opam update \
     && opam install core \
     core_unix \
-    merlin \
     yaml \
     ezjsonm \
     mustache \

config.json

@@ -453,13 +453,22 @@
           "search"
         ]
       },
+      {
+        "slug": "flower-field",
+        "name": "Flower Field",
+        "uuid": "5e0945fe-1c46-4a2b-b66e-564330f3a92f",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 7
+      },
       {
         "slug": "minesweeper",
         "name": "Minesweeper",
         "uuid": "a0468f9b-55d1-45dd-9a2f-476aaf4d6c2e",
         "practices": [],
         "prerequisites": [],
         "difficulty": 7,
+        "status": "deprecated",
         "topics": [
           "arrays",
           "transforming"

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,30 @@
+{
+  "authors": [],
+  "contributors": [
+    "daveyarwood",
+    "dvberkel",
+    "iHiD",
+    "ismaelga",
+    "keiravillekode",
+    "kytrinyx",
+    "marionebl",
+    "Peaupote",
+    "pminten",
+    "sbl",
+    "sshine",
+    "stevejb71",
+    "tmcgilchrist"
+  ],
+  "files": {
+    "solution": [
+      "flower_field.ml"
+    ],
+    "test": [
+      "test.ml"
+    ],
+    "example": [
+      ".meta/example.ml"
+    ]
+  },
+  "blurb": "Mark all the flowers in a garden."
+}

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

@@ -0,0 +1,53 @@
+open Base
+
+type field =
+  | Flower
+  | Empty of int (* Empty spot, number is adjacent flowers *)
+
+type board = { fields: field array array; width: int; height: int }
+
+let board_of_strings strings =
+  let to_field = function
+    | '*' -> Flower
+    | _   -> Empty 0 in
+  let f s = String.to_list s |> List.map ~f:to_field |> Array.of_list in
+  let fields = List.map strings ~f |> Array.of_list in
+  let height = Array.length fields in
+  let width = if height > 0 then Array.length fields.(0) else 0 in
+  { fields; width; height }
+
+let strings_of_board board =
+  let to_char = function
+    | Flower    -> '*'
+    | Empty 0 -> ' '
+    | Empty n -> Char.of_int_exn (Char.to_int '0' + n) in
+  let f a = Array.to_list a |> List.map ~f:to_char |> String.of_char_list in
+  Array.to_list board.fields |> List.map ~f
+
+let adjacent_offsets =
+  let open List in
+  ([-1; 0; 1] >>= fun x ->
+   [-1; 0; 1] >>= fun y ->
+   return (x, y))
+  |> List.filter ~f:(fun (x, y) -> x <> 0 || y <> 0)
+
+let mark_flower board c =
+  let valid_coord (x, y) = x >= 0 && x < board.width && y >= 0 && y < board.height in
+  let add_vec (ax, ay) (bx, by) = (ax + bx, ay + by) in
+  let inc_field = function
+    | Flower -> Flower
+    | Empty n -> Empty (n + 1) in
+  List.map adjacent_offsets ~f:(fun o -> add_vec c o)
+  |> List.filter ~f:valid_coord
+  |> List.iter ~f:(fun (x, y) -> board.fields.(y).(x) <- inc_field board.fields.(y).(x))
+
+let annotate strings =
+  let board = board_of_strings strings in
+  for x = 0 to board.width - 1 do
+    for y = 0 to board.height - 1 do
+      match board.fields.(y).(x) with
+      | Flower    -> mark_flower board (x, y)
+      | Empty _ -> ()
+    done
+  done;
+  strings_of_board board

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/Makefile

@@ -0,0 +1,9 @@
+default: clean test
+
+test:
+	dune runtest
+
+clean:
+	dune clean
+
+.PHONY: clean

exercises/practice/flower-field/dune

@@ -0,0 +1,16 @@
+(executable
+ (name test)
+ (libraries base ounit2))
+
+(alias
+  (name    runtest)
+  (deps    (:x test.exe))
+  (action  (run %{x})))
+
+(alias
+  (name    buildtest)
+  (deps    (:x test.exe)))
+
+(env
+  (dev
+    (flags (:standard -warn-error -A))))

exercises/practice/flower-field/dune-project

@@ -0,0 +1 @@
+(lang dune 1.1)