feat: Add exercise Scrabble Score (closes #311)

config.json

@@ -517,6 +517,18 @@
         "practices": [],
         "prerequisites": [],
         "difficulty": 6
+      },
+      {
+        "slug": "scrabble-score",
+        "name": "Scrabble Score",
+        "uuid": "fb45c509-d83d-4f71-a8ef-f218c5426838",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 3,
+        "topics": [
+          "lists",
+          "strings"
+        ]
       }
     ]
   },

exercises/practice/scrabble-score/.docs/instructions.md

@@ -0,0 +1,40 @@
+# Instructions
+
+Given a word, compute the Scrabble score for that word.
+
+## Letter Values
+
+You'll need these:
+
+```text
+Letter                           Value
+A, E, I, O, U, L, N, R, S, T       1
+D, G                               2
+B, C, M, P                         3
+F, H, V, W, Y                      4
+K                                  5
+J, X                               8
+Q, Z                               10
+```
+
+## Examples
+
+"cabbage" should be scored as worth 14 points:
+
+- 3 points for C
+- 1 point for A, twice
+- 3 points for B, twice
+- 2 points for G
+- 1 point for E
+
+And to total:
+
+- `3 + 2*1 + 2*3 + 2 + 1`
+- = `3 + 2 + 6 + 3`
+- = `5 + 9`
+- = 14
+
+## Extensions
+
+- You can play a double or a triple letter.
+- You can play a double or a triple word.

exercises/practice/scrabble-score/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "keiravillekode"
+  ],
+  "files": {
+    "solution": [
+      "scrabble-score.el"
+    ],
+    "test": [
+      "scrabble-score-test.el"
+    ],
+    "example": [
+      ".meta/example.el"
+    ]
+  },
+  "blurb": "Given a word, compute the Scrabble score for that word.",
+  "source": "Inspired by the Extreme Startup game",
+  "source_url": "https://github.com/rchatley/extreme_startup"
+}

exercises/practice/scrabble-score/.meta/example.el

@@ -0,0 +1,36 @@
+;;; scrabble-score.el --- Scrabble Score (exercism)  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'cl-lib)
+
+(defvar letters->score '(
+  ("AEIOULNRST" . 1)
+  ("DG" . 2)
+  ("BCMP" . 3)
+  ("FHVWY" . 4)
+  ("K" . 5)
+  ("JX" . 8)
+  ("QZ" . 10)
+))
+
+(defun letter-score (letter)
+  "The Scrabble score for letter"
+  (let ((table letters->score))
+    (while
+      (not (cl-find letter (caar table)))
+      (setq table (cdr table)))
+    (cdar table)))
+
+(defun score (word)
+  "The Scrabble score for word"
+  (let ((total 0)
+        (letters (cl-coerce (upcase word) 'list)))
+    (dolist (letter letters)
+      (setq total (+ total (letter-score letter))))
+    total))
+
+(provide 'scrabble-score)
+;;; scrabble-score.el ends here

exercises/practice/scrabble-score/.meta/tests.toml

@@ -0,0 +1,43 @@
+# 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.
+
+[f46cda29-1ca5-4ef2-bd45-388a767e3db2]
+description = "lowercase letter"
+
+[f7794b49-f13e-45d1-a933-4e48459b2201]
+description = "uppercase letter"
+
+[eaba9c76-f9fa-49c9-a1b0-d1ba3a5b31fa]
+description = "valuable letter"
+
+[f3c8c94e-bb48-4da2-b09f-e832e103151e]
+description = "short word"
+
+[71e3d8fa-900d-4548-930e-68e7067c4615]
+description = "short, valuable word"
+
+[d3088ad9-570c-4b51-8764-c75d5a430e99]
+description = "medium word"
+
+[fa20c572-ad86-400a-8511-64512daac352]
+description = "medium, valuable word"
+
+[9336f0ba-9c2b-4fa0-bd1c-2e2d328cf967]
+description = "long, mixed-case word"
+
+[1e34e2c3-e444-4ea7-b598-3c2b46fd2c10]
+description = "english-like word"
+
+[4efe3169-b3b6-4334-8bae-ff4ef24a7e4f]
+description = "empty input"
+
+[3b305c1c-f260-4e15-a5b5-cb7d3ea7c3d7]
+description = "entire alphabet available"

exercises/practice/scrabble-score/scrabble-score-test.el

@@ -0,0 +1,55 @@
+;;; scrabble-score-test.el --- Tests for Scrabble Score (exercism)  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(load-file "scrabble-score.el")
+(declare-function score "scrabble-score.el" (word))
+
+
+(ert-deftest lowercase-letter ()
+  (should (equal 1 (score "a"))))
+
+
+(ert-deftest uppercase-letter ()
+  (should (equal 1 (score "A"))))
+
+
+(ert-deftest valuable-letter ()
+  (should (equal 4 (score "f"))))
+
+
+(ert-deftest short-word ()
+  (should (equal 2 (score "at"))))
+
+
+(ert-deftest short-valuable-word ()
+  (should (equal 12 (score "zoo"))))
+
+
+(ert-deftest medium-word ()
+  (should (equal 6 (score "street"))))
+
+
+(ert-deftest medium-valuable-word ()
+  (should (equal 22 (score "quirky"))))
+
+
+(ert-deftest long-mixed-case-word ()
+  (should (equal 41 (score "OxyphenButazone"))))
+
+
+(ert-deftest english-like-word ()
+  (should (equal 8 (score "pinata"))))
+
+
+(ert-deftest empty-input ()
+  (should (equal 0 (score ""))))
+
+
+(ert-deftest entire-alphabet-available ()
+  (should (equal 87 (score "abcdefghijklmnopqrstuvwxyz"))))
+
+(provide 'scrabble-score-test)
+;;; scrabble-score-test.el ends here

exercises/practice/scrabble-score/scrabble-score.el

@@ -0,0 +1,11 @@
+;;; scrabble-score.el --- Scrabble Score (exercism)  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(defun score (word)
+  (error "Delete this S-Expression and write your own implementation"))
+
+(provide 'scrabble-score)
+;;; scrabble-score.el ends here