From 2b7bd6a01e905440ebaf75bc05661aa75e641e6b Mon Sep 17 00:00:00 2001 From: Jie Date: Wed, 22 May 2024 08:33:05 +0900 Subject: [PATCH] Add new practice exercise `yacht` (#693) * Add new practice exercise `yacht` * use dict to count dice * format * do not commit things without testing them --- config.json | 16 ++ .../practice/yacht/.docs/instructions.md | 30 ++++ .../practice/yacht/.docs/introduction.md | 11 ++ exercises/practice/yacht/.meta/config.json | 19 +++ .../yacht/.meta/src/Yacht.example.elm | 86 ++++++++++ exercises/practice/yacht/.meta/tests.toml | 97 +++++++++++ exercises/practice/yacht/elm.json | 29 ++++ exercises/practice/yacht/src/Yacht.elm | 21 +++ exercises/practice/yacht/tests/Tests.elm | 156 ++++++++++++++++++ 9 files changed, 465 insertions(+) create mode 100644 exercises/practice/yacht/.docs/instructions.md create mode 100644 exercises/practice/yacht/.docs/introduction.md create mode 100644 exercises/practice/yacht/.meta/config.json create mode 100644 exercises/practice/yacht/.meta/src/Yacht.example.elm create mode 100644 exercises/practice/yacht/.meta/tests.toml create mode 100644 exercises/practice/yacht/elm.json create mode 100644 exercises/practice/yacht/src/Yacht.elm create mode 100644 exercises/practice/yacht/tests/Tests.elm diff --git a/config.json b/config.json index 656e28ca..c21a03c4 100644 --- a/config.json +++ b/config.json @@ -1235,6 +1235,22 @@ ], "difficulty": 5 }, + { + "slug": "yacht", + "name": "Yacht", + "uuid": "394ef7c1-e4b3-484f-a1a3-754870335423", + "practices": [ + "pattern-matching" + ], + "prerequisites": [ + "pattern-matching", + "lists", + "custom-types", + "comparison", + "booleans" + ], + "difficulty": 5 + }, { "slug": "sieve", "name": "Sieve", diff --git a/exercises/practice/yacht/.docs/instructions.md b/exercises/practice/yacht/.docs/instructions.md new file mode 100644 index 00000000..519b7a68 --- /dev/null +++ b/exercises/practice/yacht/.docs/instructions.md @@ -0,0 +1,30 @@ +# Instructions + +Given five dice and a category, calculate the score of the dice for that category. + +~~~~exercism/note +You'll always be presented with five dice. +Each dice's value will be between one and six inclusively. +The dice may be unordered. +~~~~ + +## Scores in Yacht + +| Category | Score | Description | Example | +| --------------- | ---------------------- | ---------------------------------------- | ------------------- | +| Ones | 1 × number of ones | Any combination | 1 1 1 4 5 scores 3 | +| Twos | 2 × number of twos | Any combination | 2 2 3 4 5 scores 4 | +| Threes | 3 × number of threes | Any combination | 3 3 3 3 3 scores 15 | +| Fours | 4 × number of fours | Any combination | 1 2 3 3 5 scores 0 | +| Fives | 5 × number of fives | Any combination | 5 1 5 2 5 scores 15 | +| Sixes | 6 × number of sixes | Any combination | 2 3 4 5 6 scores 6 | +| Full House | Total of the dice | Three of one number and two of another | 3 3 3 5 5 scores 19 | +| Four of a Kind | Total of the four dice | At least four dice showing the same face | 4 4 4 4 6 scores 16 | +| Little Straight | 30 points | 1-2-3-4-5 | 1 2 3 4 5 scores 30 | +| Big Straight | 30 points | 2-3-4-5-6 | 2 3 4 5 6 scores 30 | +| Choice | Sum of the dice | Any combination | 2 3 3 4 6 scores 18 | +| Yacht | 50 points | All five dice showing the same face | 4 4 4 4 4 scores 50 | + +If the dice do **not** satisfy the requirements of a category, the score is zero. +If, for example, _Four Of A Kind_ is entered in the _Yacht_ category, zero points are scored. +A _Yacht_ scores zero if entered in the _Full House_ category. diff --git a/exercises/practice/yacht/.docs/introduction.md b/exercises/practice/yacht/.docs/introduction.md new file mode 100644 index 00000000..5b541f56 --- /dev/null +++ b/exercises/practice/yacht/.docs/introduction.md @@ -0,0 +1,11 @@ +# Introduction + +Each year, something new is "all the rage" in your high school. +This year it is a dice game: [Yacht][yacht]. + +The game of Yacht is from the same family as Poker Dice, Generala and particularly Yahtzee, of which it is a precursor. +The game consists of twelve rounds. +In each, five dice are rolled and the player chooses one of twelve categories. +The chosen category is then used to score the throw of the dice. + +[yacht]: https://en.wikipedia.org/wiki/Yacht_(dice_game) diff --git a/exercises/practice/yacht/.meta/config.json b/exercises/practice/yacht/.meta/config.json new file mode 100644 index 00000000..25456cec --- /dev/null +++ b/exercises/practice/yacht/.meta/config.json @@ -0,0 +1,19 @@ +{ + "authors": [ + "jiegillet" + ], + "files": { + "solution": [ + "src/Yacht.elm" + ], + "test": [ + "tests/Tests.elm" + ], + "example": [ + ".meta/src/Yacht.example.elm" + ] + }, + "blurb": "Score a single throw of dice in the game Yacht.", + "source": "James Kilfiger, using wikipedia", + "source_url": "https://en.wikipedia.org/wiki/Yacht_(dice_game)" +} diff --git a/exercises/practice/yacht/.meta/src/Yacht.example.elm b/exercises/practice/yacht/.meta/src/Yacht.example.elm new file mode 100644 index 00000000..010ccd6c --- /dev/null +++ b/exercises/practice/yacht/.meta/src/Yacht.example.elm @@ -0,0 +1,86 @@ +module Yacht exposing (Category(..), score) + +import Dict + + +type Category + = Ones + | Twos + | Threes + | Fours + | Fives + | Sixes + | FullHouse + | FourOfAKind + | LittleStraight + | BigStraight + | Choice + | Yacht + + +score : List Int -> Category -> Int +score dice category = + case ( category, group dice ) of + ( Ones, _ ) -> + countDice 1 dice + + ( Twos, _ ) -> + 2 * countDice 2 dice + + ( Threes, _ ) -> + 3 * countDice 3 dice + + ( Fours, _ ) -> + 4 * countDice 4 dice + + ( Fives, _ ) -> + 5 * countDice 5 dice + + ( Sixes, _ ) -> + 6 * countDice 6 dice + + ( FullHouse, [ ( two, 2 ), ( three, 3 ) ] ) -> + 3 * three + 2 * two + + ( FourOfAKind, [ _, ( four, 4 ) ] ) -> + 4 * four + + ( FourOfAKind, [ ( five, 5 ) ] ) -> + 4 * five + + ( LittleStraight, [ _, _, _, _, ( 5, 1 ) ] ) -> + 30 + + ( BigStraight, [ ( 2, 1 ), _, _, _, _ ] ) -> + 30 + + ( Choice, _ ) -> + List.sum dice + + ( Yacht, [ _ ] ) -> + 50 + + _ -> + 0 + + +countDice : Int -> List Int -> Int +countDice number = + List.filter ((==) number) >> List.length + + +group : List Int -> List ( Int, Int ) +group diceList = + let + count currentCount = + case currentCount of + Nothing -> + Just 1 + + Just n -> + Just (n + 1) + in + diceList + |> List.foldr (\dice -> Dict.update dice count) Dict.empty + |> Dict.toList + |> List.sortBy Tuple.second diff --git a/exercises/practice/yacht/.meta/tests.toml b/exercises/practice/yacht/.meta/tests.toml new file mode 100644 index 00000000..b9d92037 --- /dev/null +++ b/exercises/practice/yacht/.meta/tests.toml @@ -0,0 +1,97 @@ +# 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. + +[3060e4a5-4063-4deb-a380-a630b43a84b6] +description = "Yacht" + +[15026df2-f567-482f-b4d5-5297d57769d9] +description = "Not Yacht" + +[36b6af0c-ca06-4666-97de-5d31213957a4] +description = "Ones" + +[023a07c8-6c6e-44d0-bc17-efc5e1b8205a] +description = "Ones, out of order" + +[7189afac-cccd-4a74-8182-1cb1f374e496] +description = "No ones" + +[793c4292-dd14-49c4-9707-6d9c56cee725] +description = "Twos" + +[dc41bceb-d0c5-4634-a734-c01b4233a0c6] +description = "Fours" + +[f6125417-5c8a-4bca-bc5b-b4b76d0d28c8] +description = "Yacht counted as threes" + +[464fc809-96ed-46e4-acb8-d44e302e9726] +description = "Yacht of 3s counted as fives" + +[d054227f-3a71-4565-a684-5c7e621ec1e9] +description = "Fives" + +[e8a036e0-9d21-443a-8b5f-e15a9e19a761] +description = "Sixes" + +[51cb26db-6b24-49af-a9ff-12f53b252eea] +description = "Full house two small, three big" + +[1822ca9d-f235-4447-b430-2e8cfc448f0c] +description = "Full house three small, two big" + +[b208a3fc-db2e-4363-a936-9e9a71e69c07] +description = "Two pair is not a full house" + +[b90209c3-5956-445b-8a0b-0ac8b906b1c2] +description = "Four of a kind is not a full house" + +[32a3f4ee-9142-4edf-ba70-6c0f96eb4b0c] +description = "Yacht is not a full house" + +[b286084d-0568-4460-844a-ba79d71d79c6] +description = "Four of a Kind" + +[f25c0c90-5397-4732-9779-b1e9b5f612ca] +description = "Yacht can be scored as Four of a Kind" + +[9f8ef4f0-72bb-401a-a871-cbad39c9cb08] +description = "Full house is not Four of a Kind" + +[b4743c82-1eb8-4a65-98f7-33ad126905cd] +description = "Little Straight" + +[7ac08422-41bf-459c-8187-a38a12d080bc] +description = "Little Straight as Big Straight" + +[97bde8f7-9058-43ea-9de7-0bc3ed6d3002] +description = "Four in order but not a little straight" + +[cef35ff9-9c5e-4fd2-ae95-6e4af5e95a99] +description = "No pairs but not a little straight" + +[fd785ad2-c060-4e45-81c6-ea2bbb781b9d] +description = "Minimum is 1, maximum is 5, but not a little straight" + +[35bd74a6-5cf6-431a-97a3-4f713663f467] +description = "Big Straight" + +[87c67e1e-3e87-4f3a-a9b1-62927822b250] +description = "Big Straight as little straight" + +[c1fa0a3a-40ba-4153-a42d-32bc34d2521e] +description = "No pairs but not a big straight" + +[207e7300-5d10-43e5-afdd-213e3ac8827d] +description = "Choice" + +[b524c0cf-32d2-4b40-8fb3-be3500f3f135] +description = "Yacht as choice" diff --git a/exercises/practice/yacht/elm.json b/exercises/practice/yacht/elm.json new file mode 100644 index 00000000..22c9e137 --- /dev/null +++ b/exercises/practice/yacht/elm.json @@ -0,0 +1,29 @@ +{ + "type": "application", + "source-directories": [ + "src" + ], + "elm-version": "0.19.1", + "dependencies": { + "direct": { + "elm/core": "1.0.5", + "elm/json": "1.1.3", + "elm/parser": "1.1.0", + "elm/random": "1.0.0", + "elm/regex": "1.0.0", + "elm/time": "1.0.0" + }, + "indirect": {} + }, + "test-dependencies": { + "direct": { + "elm-explorations/test": "2.1.0", + "rtfeldman/elm-iso8601-date-strings": "1.1.4" + }, + "indirect": { + "elm/bytes": "1.0.8", + "elm/html": "1.0.0", + "elm/virtual-dom": "1.0.3" + } + } +} diff --git a/exercises/practice/yacht/src/Yacht.elm b/exercises/practice/yacht/src/Yacht.elm new file mode 100644 index 00000000..90217507 --- /dev/null +++ b/exercises/practice/yacht/src/Yacht.elm @@ -0,0 +1,21 @@ +module Yacht exposing (Category(..), score) + + +type Category + = Ones + | Twos + | Threes + | Fours + | Fives + | Sixes + | FullHouse + | FourOfAKind + | LittleStraight + | BigStraight + | Choice + | Yacht + + +score : List Int -> Category -> Int +score dice category = + Debug.todo "Please implement score" diff --git a/exercises/practice/yacht/tests/Tests.elm b/exercises/practice/yacht/tests/Tests.elm new file mode 100644 index 00000000..ad9db3dc --- /dev/null +++ b/exercises/practice/yacht/tests/Tests.elm @@ -0,0 +1,156 @@ +module Tests exposing (tests) + +import Expect +import Test exposing (Test, describe, skip, test) +import Yacht exposing (Category(..)) + + +tests : Test +tests = + describe "Yacht" + [ -- skip <| + test "Is Yacht" <| + \() -> + Yacht.score [ 5, 5, 5, 5, 5 ] Yacht + |> Expect.equal 50 + , skip <| + test "Not Yacht" <| + \() -> + Yacht.score [ 1, 3, 3, 2, 5 ] Yacht + |> Expect.equal 0 + , skip <| + test "Ones" <| + \() -> + Yacht.score [ 1, 1, 1, 3, 5 ] Ones + |> Expect.equal 3 + , skip <| + test "Ones, out of order" <| + \() -> + Yacht.score [ 3, 1, 1, 5, 1 ] Ones + |> Expect.equal 3 + , skip <| + test "No ones" <| + \() -> + Yacht.score [ 4, 3, 6, 5, 5 ] Ones + |> Expect.equal 0 + , skip <| + test "Twos" <| + \() -> + Yacht.score [ 2, 3, 4, 5, 6 ] Twos + |> Expect.equal 2 + , skip <| + test "Fours" <| + \() -> + Yacht.score [ 1, 4, 1, 4, 1 ] Fours + |> Expect.equal 8 + , skip <| + test "Yacht counted as threes" <| + \() -> + Yacht.score [ 3, 3, 3, 3, 3 ] Threes + |> Expect.equal 15 + , skip <| + test "Yacht of 3s counted as fives" <| + \() -> + Yacht.score [ 3, 3, 3, 3, 3 ] Fives + |> Expect.equal 0 + , skip <| + test "Fives" <| + \() -> + Yacht.score [ 1, 5, 3, 5, 3 ] Fives + |> Expect.equal 10 + , skip <| + test "Sixes" <| + \() -> + Yacht.score [ 2, 3, 4, 5, 6 ] Sixes + |> Expect.equal 6 + , skip <| + test "Full house two small, three big" <| + \() -> + Yacht.score [ 2, 2, 4, 4, 4 ] FullHouse + |> Expect.equal 16 + , skip <| + test "Full house three small, two big" <| + \() -> + Yacht.score [ 5, 3, 3, 5, 3 ] FullHouse + |> Expect.equal 19 + , skip <| + test "Two pair is not a full house" <| + \() -> + Yacht.score [ 2, 2, 4, 4, 5 ] FullHouse + |> Expect.equal 0 + , skip <| + test "Four of a kind is not a full house" <| + \() -> + Yacht.score [ 1, 4, 4, 4, 4 ] FullHouse + |> Expect.equal 0 + , skip <| + test "Yacht is not a full house" <| + \() -> + Yacht.score [ 2, 2, 2, 2, 2 ] FullHouse + |> Expect.equal 0 + , skip <| + test "Four of a Kind" <| + \() -> + Yacht.score [ 6, 6, 4, 6, 6 ] FourOfAKind + |> Expect.equal 24 + , skip <| + test "Yacht can be scored as Four of a Kind" <| + \() -> + Yacht.score [ 3, 3, 3, 3, 3 ] FourOfAKind + |> Expect.equal 12 + , skip <| + test "Full house is not Four of a Kind" <| + \() -> + Yacht.score [ 3, 3, 3, 5, 5 ] FourOfAKind + |> Expect.equal 0 + , skip <| + test "Little Straight" <| + \() -> + Yacht.score [ 3, 5, 4, 1, 2 ] LittleStraight + |> Expect.equal 30 + , skip <| + test "Little Straight as Big Straight" <| + \() -> + Yacht.score [ 1, 2, 3, 4, 5 ] BigStraight + |> Expect.equal 0 + , skip <| + test "Four in order but not a little straight" <| + \() -> + Yacht.score [ 1, 1, 2, 3, 4 ] LittleStraight + |> Expect.equal 0 + , skip <| + test "No pairs but not a little straight" <| + \() -> + Yacht.score [ 1, 2, 3, 4, 6 ] LittleStraight + |> Expect.equal 0 + , skip <| + test "Minimum is 1, maximum is 5, but not a little straight" <| + \() -> + Yacht.score [ 1, 1, 3, 4, 5 ] LittleStraight + |> Expect.equal 0 + , skip <| + test "Big Straight" <| + \() -> + Yacht.score [ 4, 6, 2, 5, 3 ] BigStraight + |> Expect.equal 30 + , skip <| + test "Big Straight as little straight" <| + \() -> + Yacht.score [ 6, 5, 4, 3, 2 ] LittleStraight + |> Expect.equal 0 + , skip <| + test "No pairs but not a big straight" <| + \() -> + Yacht.score [ 6, 5, 4, 3, 1 ] BigStraight + |> Expect.equal 0 + , skip <| + test "Choice" <| + \() -> + Yacht.score [ 3, 3, 5, 6, 6 ] Choice + |> Expect.equal 23 + , skip <| + test "Yacht as choice" <| + \() -> + Yacht.score [ 2, 2, 2, 2, 2 ] Choice + |> Expect.equal 10 + ]