[reverse-string] Implementation

config.json

@@ -553,8 +553,17 @@
         "prerequisites": [],
         "difficulty": 1,
         "topics": []
+      },
+      {
+        "slug": "reverse-string",
+        "name": "Reverse String",
+        "uuid": "cdc17b6c-ccde-4709-9bbe-a5af7a79b8ae",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 1,
+        "topics": []
       }
-   ]
+    ]
   },
   "concepts": [],
   "key_features": [

exercises/practice/reverse-string/.docs/instructions.md

@@ -0,0 +1,7 @@
+# Instructions
+
+Reverse a string
+
+For example:
+input: "cool"
+output: "looc"

exercises/practice/reverse-string/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "habere-et-dispertire"
+  ],
+  "files": {
+    "solution": [
+      "ReverseString.rakumod"
+    ],
+    "test": [
+      "reverse-string.rakutest"
+    ],
+    "example": [
+      ".meta/solutions/ReverseString.rakumod"
+    ]
+  },
+  "blurb": "Reverse a string.",
+  "source": "Introductory challenge to reverse an input string",
+  "source_url": "https://medium.freecodecamp.org/how-to-reverse-a-string-in-javascript-in-3-different-ways-75e4763c68cb"
+}

exercises/practice/reverse-string/.meta/solutions/ReverseString.rakumod

@@ -0,0 +1,5 @@
+unit module ReverseString;
+
+sub reverse-string($string) is export {
+    $string.flip
+}

exercises/practice/reverse-string/.meta/solutions/reverse-string.rakutest

@@ -0,0 +1 @@
+../../reverse-string.rakutest

exercises/practice/reverse-string/.meta/template-data.yaml

@@ -0,0 +1,29 @@
+properties:
+  reverse:
+    test: |-
+      sprintf(q:to/END/, %case<description>.raku, %case<input><value>.raku, %case<expected>.raku);
+      subtest %1$s => {
+        cmp-ok(
+            reverse-string(%2$s),
+            "eq",
+            %3$s,
+            "reverse once",
+        );
+        cmp-ok(
+            reverse-string(reverse-string(%2$s)),
+            "eq",
+            %2$s,
+            "reverse twice",
+        );
+      }
+      END
+
+unit: module
+example: |-
+  sub reverse-string($string) is export {
+      $string.flip
+  }
+
+stub: |-
+  sub reverse-string($string) is export {
+  }

exercises/practice/reverse-string/.meta/tests.toml

@@ -0,0 +1,28 @@
+# 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.
+
+[c3b7d806-dced-49ee-8543-933fd1719b1c]
+description = "an empty string"
+
+[01ebf55b-bebb-414e-9dec-06f7bb0bee3c]
+description = "a word"
+
+[0f7c07e4-efd1-4aaa-a07a-90b49ce0b746]
+description = "a capitalized word"
+
+[71854b9c-f200-4469-9f5c-1e8e5eff5614]
+description = "a sentence with punctuation"
+
+[1f8ed2f3-56f3-459b-8f3e-6d8d654a1f6c]
+description = "a palindrome"
+
+[b9e7dec1-c6df-40bd-9fa3-cd7ded010c4c]
+description = "an even-sized word"

exercises/practice/reverse-string/ReverseString.rakumod

@@ -0,0 +1,4 @@
+unit module ReverseString;
+
+sub reverse-string($string) is export {
+}

exercises/practice/reverse-string/reverse-string.rakutest

@@ -0,0 +1,96 @@
+#!/usr/bin/env raku
+use Test;
+use lib $?FILE.IO.dirname;
+use ReverseString;
+
+subtest "an empty string" => { # begin: c3b7d806-dced-49ee-8543-933fd1719b1c
+  cmp-ok(
+      reverse-string(""),
+      "eq",
+      "",
+      "reverse once",
+  );
+  cmp-ok(
+      reverse-string(reverse-string("")),
+      "eq",
+      "",
+      "reverse twice",
+  );
+} # end: c3b7d806-dced-49ee-8543-933fd1719b1c
+
+subtest "a word" => { # begin: 01ebf55b-bebb-414e-9dec-06f7bb0bee3c
+  cmp-ok(
+      reverse-string("robot"),
+      "eq",
+      "tobor",
+      "reverse once",
+  );
+  cmp-ok(
+      reverse-string(reverse-string("robot")),
+      "eq",
+      "robot",
+      "reverse twice",
+  );
+} # end: 01ebf55b-bebb-414e-9dec-06f7bb0bee3c
+
+subtest "a capitalized word" => { # begin: 0f7c07e4-efd1-4aaa-a07a-90b49ce0b746
+  cmp-ok(
+      reverse-string("Ramen"),
+      "eq",
+      "nemaR",
+      "reverse once",
+  );
+  cmp-ok(
+      reverse-string(reverse-string("Ramen")),
+      "eq",
+      "Ramen",
+      "reverse twice",
+  );
+} # end: 0f7c07e4-efd1-4aaa-a07a-90b49ce0b746
+
+subtest "a sentence with punctuation" => { # begin: 71854b9c-f200-4469-9f5c-1e8e5eff5614
+  cmp-ok(
+      reverse-string("I'm hungry!"),
+      "eq",
+      "!yrgnuh m'I",
+      "reverse once",
+  );
+  cmp-ok(
+      reverse-string(reverse-string("I'm hungry!")),
+      "eq",
+      "I'm hungry!",
+      "reverse twice",
+  );
+} # end: 71854b9c-f200-4469-9f5c-1e8e5eff5614
+
+subtest "a palindrome" => { # begin: 1f8ed2f3-56f3-459b-8f3e-6d8d654a1f6c
+  cmp-ok(
+      reverse-string("racecar"),
+      "eq",
+      "racecar",
+      "reverse once",
+  );
+  cmp-ok(
+      reverse-string(reverse-string("racecar")),
+      "eq",
+      "racecar",
+      "reverse twice",
+  );
+} # end: 1f8ed2f3-56f3-459b-8f3e-6d8d654a1f6c
+
+subtest "an even-sized word" => { # begin: b9e7dec1-c6df-40bd-9fa3-cd7ded010c4c
+  cmp-ok(
+      reverse-string("drawer"),
+      "eq",
+      "reward",
+      "reverse once",
+  );
+  cmp-ok(
+      reverse-string(reverse-string("drawer")),
+      "eq",
+      "drawer",
+      "reverse twice",
+  );
+} # end: b9e7dec1-c6df-40bd-9fa3-cd7ded010c4c
+
+done-testing;