Add high-scores (#128)

Author: glennj

config.json

@@ -282,6 +282,14 @@
         "prerequisites": [],
         "difficulty": 3
       },
+      {
+        "slug": "high-scores",
+        "name": "High Scores",
+        "uuid": "0d067c10-738a-475c-a0a3-3f95b45f3a5f",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 3
+      },
       {
         "slug": "house",
         "name": "House",

exercises/practice/high-scores/.busted

@@ -0,0 +1,5 @@
+return {
+  default = {
+    ROOT = { '.' }
+  }
+}

exercises/practice/high-scores/.docs/instructions.md

@@ -0,0 +1,6 @@
+# Instructions
+
+Manage a game player's High Score list.
+
+Your task is to build a high-score component of the classic Frogger game, one of the highest selling and most addictive games of all time, and a classic of the arcade era.
+Your task is to write methods that return the highest score from the list, the last added score and the three highest scores.

exercises/practice/high-scores/.meta/config.json

@@ -0,0 +1,18 @@
+{
+  "authors": [
+    "glennj"
+  ],
+  "files": {
+    "solution": [
+      "high_scores.moon"
+    ],
+    "test": [
+      "high_scores_spec.moon"
+    ],
+    "example": [
+      ".meta/example.moon"
+    ]
+  },
+  "blurb": "Manage a player's High Score list.",
+  "source": "Tribute to the eighties' arcade game Frogger"
+}

exercises/practice/high-scores/.meta/example.moon

@@ -0,0 +1,9 @@
+class HighScores
+  new: (@_scores) =>
+    @_sorted = [s for s in *@_scores]
+    table.sort @_sorted, (a, b) -> b < a
+
+  scores: => @_scores
+  latest: => @_scores[#@_scores]
+  personalBest: => @_sorted[1]
+  personalTopThree: => {table.unpack @_sorted, 1, 3}

exercises/practice/high-scores/.meta/spec_generator.moon

@@ -0,0 +1,35 @@
+int_list = (list) -> "{#{table.concat list, ', '}}"
+
+
+{
+  module_name: 'HighScores',
+
+  generate_test: (case, level) ->
+    lines = {
+      "scores = HighScores #{int_list case.input.scores}"
+    }
+
+    switch case.property
+      when 'latestAfterTopThree'
+        table.insert lines, "_ = scores\\personalTopThree!"
+        table.insert lines, "result = scores\\latest!"
+      when 'scoresAfterTopThree'
+        table.insert lines, "_ = scores\\personalTopThree!"
+        table.insert lines, "result = scores\\scores!"
+      when 'latestAfterBest'
+        table.insert lines, "_ = scores\\personalBest!"
+        table.insert lines, "result = scores\\latest!"
+      when 'scoresAfterBest'
+        table.insert lines, "_ = scores\\personalBest!"
+        table.insert lines, "result = scores\\scores!"
+      else
+        table.insert lines, "result = scores\\#{case.property}!"
+
+    if type(case.expected) == 'table'
+      table.insert lines, "expected = #{int_list case.expected}"
+    else
+      table.insert lines, "expected = #{case.expected}"
+
+    table.insert lines, "assert.are.same expected, result"
+    table.concat [indent line, level for line in *lines], '\n'
+}

exercises/practice/high-scores/.meta/tests.toml

@@ -0,0 +1,46 @@
+# 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.
+
+[1035eb93-2208-4c22-bab8-fef06769a73c]
+description = "List of scores"
+
+[6aa5dbf5-78fa-4375-b22c-ffaa989732d2]
+description = "Latest score"
+
+[b661a2e1-aebf-4f50-9139-0fb817dd12c6]
+description = "Personal best"
+
+[3d996a97-c81c-4642-9afc-80b80dc14015]
+description = "Top 3 scores -> Personal top three from a list of scores"
+
+[1084ecb5-3eb4-46fe-a816-e40331a4e83a]
+description = "Top 3 scores -> Personal top highest to lowest"
+
+[e6465b6b-5a11-4936-bfe3-35241c4f4f16]
+description = "Top 3 scores -> Personal top when there is a tie"
+
+[f73b02af-c8fd-41c9-91b9-c86eaa86bce2]
+description = "Top 3 scores -> Personal top when there are less than 3"
+
+[16608eae-f60f-4a88-800e-aabce5df2865]
+description = "Top 3 scores -> Personal top when there is only one"
+
+[2df075f9-fec9-4756-8f40-98c52a11504f]
+description = "Top 3 scores -> Latest score after personal top scores"
+
+[809c4058-7eb1-4206-b01e-79238b9b71bc]
+description = "Top 3 scores -> Scores after personal top scores"
+
+[ddb0efc0-9a86-4f82-bc30-21ae0bdc6418]
+description = "Top 3 scores -> Latest score after personal best"
+
+[6a0fd2d1-4cc4-46b9-a5bb-2fb667ca2364]
+description = "Top 3 scores -> Scores after personal best"

exercises/practice/high-scores/high_scores.moon

@@ -0,0 +1,15 @@
+class HighScores
+  new: (scoreList) =>
+    error 'Implement the constructor'
+
+  scores: =>
+    error 'Implement the scores method'
+
+  latest: =>
+    error 'Implement the latest method'
+
+  personalBest: =>
+    error 'Implement the personalBest method'
+
+  personalTopThree: =>
+    error 'Implement the personalTopThree method'

exercises/practice/high-scores/high_scores_spec.moon

@@ -0,0 +1,79 @@
+HighScores = require 'high_scores'
+
+describe 'high-scores', ->
+  it 'List of scores', ->
+    scores = HighScores {30, 50, 20, 70}
+    result = scores\scores!
+    expected = {30, 50, 20, 70}
+    assert.are.same expected, result
+
+  pending 'Latest score', ->
+    scores = HighScores {100, 0, 90, 30}
+    result = scores\latest!
+    expected = 30
+    assert.are.same expected, result
+
+  pending 'Personal best', ->
+    scores = HighScores {40, 100, 70}
+    result = scores\personalBest!
+    expected = 100
+    assert.are.same expected, result
+
+  describe 'Top 3 scores', ->
+    pending 'Personal top three from a list of scores', ->
+      scores = HighScores {10, 30, 90, 30, 100, 20, 10, 0, 30, 40, 40, 70, 70}
+      result = scores\personalTopThree!
+      expected = {100, 90, 70}
+      assert.are.same expected, result
+
+    pending 'Personal top highest to lowest', ->
+      scores = HighScores {20, 10, 30}
+      result = scores\personalTopThree!
+      expected = {30, 20, 10}
+      assert.are.same expected, result
+
+    pending 'Personal top when there is a tie', ->
+      scores = HighScores {40, 20, 40, 30}
+      result = scores\personalTopThree!
+      expected = {40, 40, 30}
+      assert.are.same expected, result
+
+    pending 'Personal top when there are less than 3', ->
+      scores = HighScores {30, 70}
+      result = scores\personalTopThree!
+      expected = {70, 30}
+      assert.are.same expected, result
+
+    pending 'Personal top when there is only one', ->
+      scores = HighScores {40}
+      result = scores\personalTopThree!
+      expected = {40}
+      assert.are.same expected, result
+
+    pending 'Latest score after personal top scores', ->
+      scores = HighScores {70, 50, 20, 30}
+      _ = scores\personalTopThree!
+      result = scores\latest!
+      expected = 30
+      assert.are.same expected, result
+
+    pending 'Scores after personal top scores', ->
+      scores = HighScores {30, 50, 20, 70}
+      _ = scores\personalTopThree!
+      result = scores\scores!
+      expected = {30, 50, 20, 70}
+      assert.are.same expected, result
+
+    pending 'Latest score after personal best', ->
+      scores = HighScores {20, 70, 15, 25, 30}
+      _ = scores\personalBest!
+      result = scores\latest!
+      expected = 30
+      assert.are.same expected, result
+
+    pending 'Scores after personal best', ->
+      scores = HighScores {20, 70, 15, 25, 30}
+      _ = scores\personalBest!
+      result = scores\scores!
+      expected = {20, 70, 15, 25, 30}
+      assert.are.same expected, result