ðŸŽ‰ Exercism Research is now launched. Help Exercism, help science and have some fun at research.exercism.io ðŸŽ‰

# jennyjean's solution

## to Scrabble Score in the Elixir Track

Published at Oct 19 2020 · 0 comments
Instructions
Test suite
Solution

Given a word, compute the scrabble score for that word.

## Letter Values

You'll need these:

``````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.

## Running tests

Execute the tests with:

``````\$ mix test
``````

### Pending tests

In the test suites, all but the first test have been skipped.

Once you get a test passing, you can unskip the next one by commenting out the relevant `@tag :pending` with a `#` symbol.

For example:

``````# @tag :pending
test "shouting" do
assert Bob.hey("WATCH OUT!") == "Whoa, chill out!"
end
``````

Or, you can enable all the tests by commenting out the `ExUnit.configure` line in the test suite.

``````# ExUnit.configure exclude: :pending, trace: true
``````

If you're stuck on something, it may help to look at some of the available resources out there where answers might be found.

## Source

Inspired by the Extreme Startup game https://github.com/rchatley/extreme_startup

## Submitting Incomplete Solutions

It's possible to submit an incomplete solution so you can see how others have completed the exercise.

### scrabble_test.exs

``````defmodule ScrabbleTest do
use ExUnit.Case

# @tag :pending
test "empty word scores zero" do
assert Scrabble.score("") == 0
end

@tag :pending
test "whitespace scores zero" do
assert Scrabble.score(" \t\n") == 0
end

@tag :pending
test "scores very short word" do
assert Scrabble.score("a") == 1
end

@tag :pending
test "scores other very short word" do
assert Scrabble.score("f") == 4
end

@tag :pending
test "simple word scores the number of letters" do
assert Scrabble.score("street") == 6
end

@tag :pending
test "complicated word scores more" do
assert Scrabble.score("quirky") == 22
end

@tag :pending
test "scores are case insensitive" do
assert Scrabble.score("OXYPHENBUTAZONE") == 41
end

@tag :pending
test "convenient scoring" do
assert Scrabble.score("alacrity") == 13
end
end``````

### test_helper.exs

``````ExUnit.start()
ExUnit.configure(exclude: :pending, trace: true)``````
``````defmodule Scrabble do
@doc """
Calculate the scrabble score for the word.
"""
@points %{
1 => ["A", "E", "I", "O", "U", "L", "N", "R", "S", "T"],
2 => ["D", "G"],
3 => ["B", "C", "M", "P"],
4 => ["F", "H", "V", "W", "Y"],
5 => ["K"],
6 => ["J", "X"],
7 => ["Q", "Z"]
}

@spec score(String.t()) :: non_neg_integer
def score(word), do: _score(prep_word(word))

defp _score(""), do: 0

defp _score(word) do
word
|> String.split("", trim: true)
|> Enum.reduce(%{}, fn l, acc ->
if Map.has_key?(acc, l), do: Map.put(acc, l, acc[l] + 1), else: Map.put(acc, l, 1)
end)
|> Enum.reduce(0, fn {letter, quantity}, acc ->
acc + Enum.find_value(@points, fn {key, value} ->
if Enum.member?(value, letter), do: quantity * key
end)
end)
end

defp prep_word(word) do
word
|> String.upcase()
|> String.trim()
end
end

# Scrabble.score("OXYPHENBUTAZONE")``````