Add rectangles exercise

Author: keiravillekode

config.json

@@ -540,6 +540,14 @@
         "prerequisites": [],
         "difficulty": 5
       },
+      {
+        "slug": "rectangles",
+        "name": "Rectangles",
+        "uuid": "6cd0e27c-7098-4594-b523-727cfd77a9a2",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 7
+      },
       {
         "slug": "connect",
         "name": "Connect",

exercises/practice/rectangles/.docs/instructions.md

@@ -0,0 +1,63 @@
+# Instructions
+
+Count the rectangles in an ASCII diagram like the one below.
+
+```text
+   +--+
+  ++  |
++-++--+
+|  |  |
++--+--+
+```
+
+The above diagram contains these 6 rectangles:
+
+```text
+
+
++-----+
+|     |
++-----+
+```
+
+```text
+   +--+
+   |  |
+   |  |
+   |  |
+   +--+
+```
+
+```text
+   +--+
+   |  |
+   +--+
+
+
+```
+
+```text
+
+
+   +--+
+   |  |
+   +--+
+```
+
+```text
+
+
++--+
+|  |
++--+
+```
+
+```text
+
+  ++
+  ++
+
+
+```
+
+You may assume that the input is always a proper rectangle (i.e. the length of every line equals the length of the first line).

exercises/practice/rectangles/.meta/config.json

@@ -0,0 +1,17 @@
+{
+  "authors": [
+    "keiravillekode"
+  ],
+  "files": {
+    "solution": [
+      "Rectangles.pas"
+    ],
+    "test": [
+      "TestCases.pas"
+    ],
+    "example": [
+      ".meta/example.pas"
+    ]
+  },
+  "blurb": "Count the rectangles in an ASCII diagram."
+}

exercises/practice/rectangles/.meta/example.pas

@@ -0,0 +1,68 @@
+unit Rectangles;
+
+{$mode ObjFPC}{$H+}
+
+interface
+
+type
+  TStrArray = Array Of String;
+
+function rectangles(
+  const strings : TStrArray
+) : Integer;
+
+implementation
+
+uses SysUtils;
+
+function rectangles(
+  const strings : TStrArray
+) : Integer;
+var
+  rows : Integer;
+  columns : Integer;
+  top : Integer;
+  left : Integer;
+  right : Integer;
+  bottom : Integer;
+  index : Integer;
+begin
+  result := 0;
+  rows := length(strings);
+  if rows = 0 then
+    exit;
+  columns := length(strings[0]);
+  if columns = 0 then
+    exit;
+
+  for top := low(strings) to high(strings) - 1 do
+    for left := 1 to columns - 1 do
+      begin
+        if strings[top][left] = '+' then
+          begin
+            right := left + 1;
+            while (right <= columns) and ((strings[top][right] = '-') or (strings[top][right] = '+')) do
+              begin
+                if strings[top][right] = '+' then
+                  begin
+                    bottom := top + 1;
+                    while (bottom < rows) and ((strings[bottom][left] = '|') or (strings[bottom][left] = '+')) and ((strings[bottom][right] = '|') or (strings[bottom][right] = '+')) do
+                      begin
+                        if (strings[bottom][left] = '+') and (strings[bottom][right] = '+') then
+                          begin
+                            index := left + 1;
+                            while (index < right) and ((strings[bottom][index] = '-') or (strings[bottom][index] = '+')) do
+                              index := index + 1;
+                            if index = right then
+                              result := result + 1;
+                          end;
+                        bottom := bottom + 1;
+                      end;
+                  end;
+                right := right + 1;
+              end;
+          end;
+      end;
+end;
+
+end.

exercises/practice/rectangles/.meta/tests.toml

@@ -0,0 +1,52 @@
+# 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.
+
+[485b7bab-4150-40aa-a8db-73013427d08c]
+description = "no rows"
+
+[076929ed-27e8-45dc-b14b-08279944dc49]
+description = "no columns"
+
+[0a8abbd1-a0a4-4180-aa4e-65c1b1a073fa]
+description = "no rectangles"
+
+[a4ba42e9-4e7f-4973-b7c7-4ce0760ac6cd]
+description = "one rectangle"
+
+[ced06550-83da-4d23-98b7-d24152e0db93]
+description = "two rectangles without shared parts"
+
+[5942d69a-a07c-41c8-8b93-2d13877c706a]
+description = "five rectangles with shared parts"
+
+[82d70be4-ab37-4bf2-a433-e33778d3bbf1]
+description = "rectangle of height 1 is counted"
+
+[57f1bc0e-2782-401e-ab12-7c01d8bfc2e0]
+description = "rectangle of width 1 is counted"
+
+[ef0bb65c-bd80-4561-9535-efc4067054f9]
+description = "1x1 square is counted"
+
+[e1e1d444-e926-4d30-9bf3-7d8ec9a9e330]
+description = "only complete rectangles are counted"
+
+[ca021a84-1281-4a56-9b9b-af14113933a4]
+description = "rectangles can be of different sizes"
+
+[51f689a7-ef3f-41ae-aa2f-5ea09ad897ff]
+description = "corner is required for a rectangle to be complete"
+
+[d78fe379-8c1b-4d3c-bdf7-29bfb6f6dc66]
+description = "large input with many rectangles"
+
+[6ef24e0f-d191-46da-b929-4faca24b4cd2]
+description = "rectangles must have four sides"

exercises/practice/rectangles/Makefile

@@ -0,0 +1,15 @@
+SHELL       = /bin/bash
+MAKEFLAGS  += --no-print-directory
+DESTDIR     = build
+EXECUTABLE  = $(DESTDIR)/test
+COMMAND     = fpc -l- -v0 -g -gl -Sa -Cr -Sehnw -Fu./lib test.pas -FE"./$(DESTDIR)"
+
+.ONESHELL:
+
+test:
+	@mkdir -p "./$(DESTDIR)"
+	@cp -r ./lib "./$(DESTDIR)"
+	@$(COMMAND) && ./$(EXECUTABLE) $(test)
+
+clean:
+	@rm -fr "./$(DESTDIR)"

exercises/practice/rectangles/Rectangles.pas

@@ -0,0 +1,27 @@
+unit Rectangles;
+
+{$mode ObjFPC}{$H+}
+
+interface
+
+type
+  TStrArray = Array Of String;
+
+function rectangles(
+  const strings : TStrArray
+) : Integer;
+
+implementation
+
+uses SysUtils;
+
+function rectangles(
+  const strings : TStrArray
+) : Integer;
+begin
+
+  raise ENotImplemented.Create('Please implement your solution.'); result := length(strings);
+
+end;
+
+end.