[reverse-string] Implementation

config.json

@@ -508,6 +508,15 @@
         "prerequisites": [],
         "difficulty": 1,
         "topics": []
+      },
+      {
+        "slug": "reverse-string",
+        "name": "Reverse String",
+        "uuid": "cdc17b6c-ccde-4709-9bbe-a5af7a79b8ae",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 1,
+        "topics": []
       }
     ]
   },

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 switch-round($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,27 @@
+properties:
+  reverse:
+    test: |-
+      sprintf(q:to/END/, %case<input><value>.raku, %case<expected>.raku, %case<description>.raku, %case<input><value>.raku, %case<input><value>.raku, %case<description>.raku);
+      cmp-ok(
+          switch-round(%s),
+          "eq",
+          %s,
+          %s,
+      ) &&
+      cmp-ok(
+          switch-round(switch-round(%s)),
+          "eq",
+          %s,
+          %s,
+      );
+      END
+
+unit: module
+example: |-
+  sub switch-round($string) is export {
+      $string.flip
+  }
+
+stub: |-
+  sub switch-round($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 switch-round($string) is export {
+}

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

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