iritmaximus/haskell
1
0
Fork 0
mirror of https://github.com/iritmaximus/haskell.git synced 2026-10-12 19:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

5a ex3

Browse Source
This commit is contained in:
Aaro Koivukangas
2025-12-22 21:54:03 +02:00
parent c95f04c031
commit 2b1861a6b0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Set5a.hs
+2 -2
View File
@@ -49,7 +49,7 @@ twoBananas = MkShoppingEntry "Banana" 1.1 2
-- totalPrice twoBananas ==> 2.2
totalPrice :: ShoppingEntry -> Double
totalPrice = todo
totalPrice (MkShoppingEntry _ price amount) = price * fromIntegral amount
-- buyOneMore should increment the count in an entry by one
--
@@ -57,7 +57,7 @@ totalPrice = todo
-- buyOneMore twoBananas ==> MkShoppingEntry "Banana" 1.1 3
buyOneMore :: ShoppingEntry -> ShoppingEntry
buyOneMore = todo
buyOneMore (MkShoppingEntry name price amount) = MkShoppingEntry name price $ amount+1
------------------------------------------------------------------------------
-- Ex 4: define a datatype Person, which should contain the age (an