add Book Store exercise

config.json

@@ -909,6 +909,15 @@
           "maybe"
         ]
       },
+      {
+        "slug": "book-store",
+        "name": "Book Store",
+        "uuid": "78971281-153d-4bdc-8f90-4b7eded2b201",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 8,
+        "topics": []
+      },
       {
         "slug": "pov",
         "name": "POV",

exercises/practice/book-store/.docs/instructions.append.md

@@ -0,0 +1,3 @@
+# Hints
+
+For the sake of simplicity the prices are given as integer amounts in cents. 

exercises/practice/book-store/.docs/instructions.md

@@ -0,0 +1,61 @@
+# Instructions
+
+To try and encourage more sales of different books from a popular 5 book series, a bookshop has decided to offer discounts on multiple book purchases.
+
+One copy of any of the five books costs $8.
+
+If, however, you buy two different books, you get a 5% discount on those two books.
+
+If you buy 3 different books, you get a 10% discount.
+
+If you buy 4 different books, you get a 20% discount.
+
+If you buy all 5, you get a 25% discount.
+
+Note that if you buy four books, of which 3 are different titles, you get a 10% discount on the 3 that form part of a set, but the fourth book still costs $8.
+
+Your mission is to write code to calculate the price of any conceivable shopping basket (containing only books of the same series), giving as big a discount as possible.
+
+For example, how much does this basket of books cost?
+
+- 2 copies of the first book
+- 2 copies of the second book
+- 2 copies of the third book
+- 1 copy of the fourth book
+- 1 copy of the fifth book
+
+One way of grouping these 8 books is:
+
+- 1 group of 5 (1st, 2nd,3rd, 4th, 5th)
+- 1 group of 3 (1st, 2nd, 3rd)
+
+This would give a total of:
+
+- 5 books at a 25% discount
+- 3 books at a 10% discount
+
+Resulting in:
+
+- 5 × (100% - 25%) × $8 = 5 × $6.00 = $30.00, plus
+- 3 × (100% - 10%) × $8 = 3 × $7.20 = $21.60
+
+Which equals $51.60.
+
+However, a different way to group these 8 books is:
+
+- 1 group of 4 books (1st, 2nd, 3rd, 4th)
+- 1 group of 4 books (1st, 2nd, 3rd, 5th)
+
+This would give a total of:
+
+- 4 books at a 20% discount
+- 4 books at a 20% discount
+
+Resulting in:
+
+- 4 × (100% - 20%) × $8 = 4 × $6.40 = $25.60, plus
+- 4 × (100% - 20%) × $8 = 4 × $6.40 = $25.60
+
+Which equals $51.20.
+
+And $51.20 is the price with the biggest discount.

exercises/practice/book-store/.meta/config.json

@@ -0,0 +1,23 @@
+{
+  "authors": [
+    "tofische"
+  ],
+  "files": {
+    "solution": [
+      "src/BookStore.hs",
+      "package.yaml"
+    ],
+    "test": [
+      "test/Tests.hs"
+    ],
+    "example": [
+      ".meta/examples/success-standard/src/BookStore.hs"
+    ],
+    "invalidator": [
+      "stack.yaml"
+    ]
+  },
+  "blurb": "To try and encourage more sales of different books from a popular 5 book series, a bookshop has decided to offer discounts of multiple-book purchases.",
+  "source": "Inspired by the harry potter kata from Cyber-Dojo.",
+  "source_url": "https://cyber-dojo.org"
+}

exercises/practice/book-store/.meta/examples/success-standard/package.yaml

@@ -0,0 +1,16 @@
+name: book-store
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: BookStore
+  source-dirs: src
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - book-store
+      - hspec

exercises/practice/book-store/.meta/examples/success-standard/src/BookStore.hs

@@ -0,0 +1,32 @@
+module BookStore (total, Book(..)) where
+
+import Data.List ( group, sort )
+
+data Book = First | Second | Third | Fourth | Fifth deriving (Eq, Ord, Show)
+
+-- Reverse sort on count of each book first. I'm not sure if this work in every possible case.
+-- Naive algorithm (generate solution candidates by forming groups) is too slow.
+
+total :: [Book] -> Int
+total basket = minPrice 5 $ reverse $ sort $ map length $ group $ sort basket
+-- Reverse sort the numbers of each books
+
+-- Find min price with a grouping of at most the given size for the given book counts
+minPrice :: Int -> [Int] -> Int
+minPrice _ [] = 0
+minPrice 1 counts = sum $ map (\x -> price 1 * x) counts
+minPrice n counts =
+    if length counts < n
+    then minPrice (n-1) counts
+    else min (price n + minPrice n remainingCounts) (minPrice (n-1) counts)
+      where
+        remainingCounts = filter (/= 0) (map (\x -> x-1) $ take n counts) <> drop n counts
+
+-- Get the price of a group containing given amount of books
+price :: Int -> Int
+price 1 =  800 --  0% discount
+price 2 = 1520 --  5% discount
+price 3 = 2160 -- 10% discount
+price 4 = 2560 -- 20% discount
+price 5 = 3000 -- 25% discount
+price _ = 0

exercises/practice/book-store/.meta/tests.toml

@@ -0,0 +1,64 @@
+# 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.
+
+[17146bd5-2e80-4557-ab4c-05632b6b0d01]
+description = "Only a single book"
+
+[cc2de9ac-ff2a-4efd-b7c7-bfe0f43271ce]
+description = "Two of the same book"
+
+[5a86eac0-45d2-46aa-bbf0-266b94393a1a]
+description = "Empty basket"
+
+[158bd19a-3db4-4468-ae85-e0638a688990]
+description = "Two different books"
+
+[f3833f6b-9332-4a1f-ad98-6c3f8e30e163]
+description = "Three different books"
+
+[1951a1db-2fb6-4cd1-a69a-f691b6dd30a2]
+description = "Four different books"
+
+[d70f6682-3019-4c3f-aede-83c6a8c647a3]
+description = "Five different books"
+
+[78cacb57-911a-45f1-be52-2a5bd428c634]
+description = "Two groups of four is cheaper than group of five plus group of three"
+
+[f808b5a4-e01f-4c0d-881f-f7b90d9739da]
+description = "Two groups of four is cheaper than groups of five and three"
+
+[fe96401c-5268-4be2-9d9e-19b76478007c]
+description = "Group of four plus group of two is cheaper than two groups of three"
+
+[68ea9b78-10ad-420e-a766-836a501d3633]
+description = "Two each of first four books and one copy each of rest"
+
+[c0a779d5-a40c-47ae-9828-a340e936b866]
+description = "Two copies of each book"
+
+[18fd86fe-08f1-4b68-969b-392b8af20513]
+description = "Three copies of first book and two each of remaining"
+
+[0b19a24d-e4cf-4ec8-9db2-8899a41af0da]
+description = "Three each of first two books and two each of remaining books"
+
+[bb376344-4fb2-49ab-ab85-e38d8354a58d]
+description = "Four groups of four are cheaper than two groups each of five and three"
+
+[5260ddde-2703-4915-b45a-e54dbbac4303]
+description = "Check that groups of four are created properly even when there are more groups of three than groups of five"
+
+[b0478278-c551-4747-b0fc-7e0be3158b1f]
+description = "One group of one and four is cheaper than one group of two and three"
+
+[cf868453-6484-4ae1-9dfc-f8ee85bbde01]
+description = "One group of one and two plus three groups of four is cheaper than one group of each size"

exercises/practice/book-store/package.yaml

@@ -0,0 +1,21 @@
+name: book-store
+version: 1.0.0.0
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: BookStore
+  source-dirs: src
+  ghc-options: -Wall
+  # dependencies:
+  # - foo       # List here the packages you
+  # - bar       # want to use in your solution.
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - book-store
+      - hspec

exercises/practice/book-store/src/BookStore.hs

@@ -0,0 +1,6 @@
+module BookStore (total, Book(..)) where
+
+data Book = First | Second | Third | Fourth | Fifth
+
+total :: [Book] -> Int
+total basket = error "You need to implement this function."

exercises/practice/book-store/stack.yaml

@@ -0,0 +1 @@
+resolver: lts-20.18

exercises/practice/book-store/test/Tests.hs

@@ -0,0 +1,114 @@
+{-# LANGUAGE RecordWildCards #-}
+
+import Data.Foldable     (for_)
+import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec.Runner (configFailFast, defaultConfig, hspecWith)
+
+import BookStore (total, Book(..))
+
+main :: IO ()
+main = hspecWith defaultConfig {configFailFast = True} specs
+
+specs :: Spec
+specs = describe "total" $ for_ cases test
+  where
+    test Case{..} = it description $ total basket `shouldBe` expected
+
+data Case = Case { description :: String
+                 , comment     :: String
+                 , basket      :: [Book]
+                 , expected    :: Int
+                 }
+
+cases :: [Case]
+cases = [ Case { description = "Only a single book"
+               , comment     = "Suggested grouping, [[1]]."
+               , basket      = [First]
+               , expected    = 800
+               }
+        , Case { description = "Two of the same book"
+               , comment     = "Suggested grouping, [[2],[2]]."
+               , basket      = [Second, Second]
+               , expected    = 1600
+               }
+        , Case { description = "Empty basket"
+               , comment     = "Suggested grouping, []."
+               , basket      = []
+               , expected    = 0
+               }
+        , Case { description = "Two different books"
+               , comment     = "Suggested grouping, [[1,2]]."
+               , basket      = [First, Second]
+               , expected    = 1520
+               }
+        , Case { description = "Three different books"
+               , comment     = "Suggested grouping, [[1,2,3]]."
+               , basket      = [First, Second, Third]
+               , expected    = 2160
+               }
+        , Case { description = "Four different books"
+               , comment     = "Suggested grouping, [[1,2,3,4]]."
+               , basket      = [First, Second, Third, Fourth]
+               , expected    = 2560
+               }
+        , Case { description = "Five different books"
+               , comment     = "Suggested grouping, [[1,2,3,4,5]]."
+               , basket      = [First, Second, Third, Fourth, Fifth]
+               , expected    = 3000
+               }
+        , Case { description = "Two groups of four is cheaper than group of five plus group of three"
+               , comment     = "Suggested grouping, [[1,2,3,4],[1,2,3,5]]."
+               , basket      = [First, First, Second, Second, Third, Third, Fourth, Fifth]
+               , expected    = 5120
+               }
+        , Case { description = "Two groups of four is cheaper than groups of five and three"
+               , comment     = "Suggested grouping, [[1,2,4,5],[1,3,4,5]]. This differs from the other 'two groups of four' test in that it will fail for solutions that add books to groups in the order in which they appear in the list."
+               , basket      = [First, First, Second, Third, Fourth, Fourth, Fifth, Fifth]
+               , expected    = 5120
+               }
+        , Case { description = "Group of four plus group of two is cheaper than two groups of three"
+               , comment     = "Suggested grouping, [[1,2,3,4],[1,2]]."
+               , basket      = [First, First, Second, Second, Third, Fourth]
+               , expected    = 4080
+               }
+        , Case { description = "Two each of first four books and one copy each of rest"
+               , comment     = "Suggested grouping, [[1,2,3,4,5],[1,2,3,4]]."
+               , basket      = [First, First, Second, Second, Third, Third, Fourth, Fourth, Fifth]
+               , expected    = 5560
+               }
+        , Case { description = "Two copies of each book"
+               , comment     = "Suggested grouping, [[1,2,3,4,5],[1,2,3,4,5]]."
+               , basket      = [First, First, Second, Second, Third, Third, Fourth, Fourth, Fifth, Fifth]
+               , expected    = 6000
+               }
+        , Case { description = "Three copies of first book and two each of remaining"
+               , comment     = "Suggested grouping, [[1,2,3,4,5],[1,2,3,4,5],[1]]."
+               , basket      = [First, First, Second, Second, Third, Third, Fourth, Fourth, Fifth, Fifth, First]
+               , expected    = 6800
+               }
+        , Case { description = "Three each of first two books and two each of remaining books"
+               , comment     = "Suggested grouping, [[1,2,3,4,5],[1,2,3,4,5],[1,2]]."
+               , basket      = [First, First, Second, Second, Third, Third, Fourth, Fourth, Fifth, Fifth, First, Second]
+               , expected    = 7520
+               }
+        , Case { description = "Four groups of four are cheaper than two groups each of five and three"
+               , comment     = "Suggested grouping, [[1,2,3,4],[1,2,3,5],[1,2,3,4],[1,2,3,5]]."
+               , basket      = [First, First, Second, Second, Third, Third, Fourth, Fifth, First, First, Second, Second, Third, Third, Fourth, Fifth]
+               , expected    = 10240
+               }
+        , Case { description = "Check that groups of four are created properly even when there are more groups of three than groups of five"
+               , comment     = "Suggested grouping, [[1,2,3,4],[1,2,3,5],[1,2,3,4],[1,2,3,5],[1,2,3],[1,2,3]]."
+               , basket      = [First, First, First, First, First, First, Second, Second, Second, Second, Second, Second, Third, Third, Third, Third, Third, Third, Fourth, Fourth, Fifth, Fifth]
+               , expected    = 14560
+               }
+        , Case { description = "One group of one and four is cheaper than one group of two and three"
+               , comment     = "Suggested grouping, [[1],[1,2,3,4]]."
+               , basket      = [First, First, Second, Third, Fourth]
+               , expected    = 3360
+               }
+        , Case { description = "One group of one and two plus three groups of four is cheaper than one group of each size"
+               , comment     = "Suggested grouping, [[5],[5,4],[5,4,3,2],[5,4,3,2],[5,4,3,1]]."
+               , basket      = [First, Second, Second, Third, Third, Third, Fourth, Fourth, Fourth, Fourth, Fifth, Fifth, Fifth, Fifth, Fifth]
+               , expected    = 10000
+               }
+        ]