Skip to content

Commit fdf5987

Browse files
committed
Add stub file
1 parent 11f7895 commit fdf5987

File tree

1 file changed

+3
-4
lines changed

1 file changed

+3
-4
lines changed

exercises/concept/freelancer-rates/src/FreelancerRates.hs

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -4,11 +4,10 @@ dailyRate :: Double -> Double
44
dailyRate = error "Implement this function."
55

66
applyDiscount :: Double -> Double -> Double
7-
applyDiscount amount disscount = amount * (1 - disscount / 100)
7+
applyDiscount = error "Implement this function."
88

99
monthlyRate :: Double -> Double -> Int
10-
monthlyRate hourlyRate discount = ceiling (applyDiscount (dailyRate hourlyRate * 22) discount)
10+
monthlyRate = error "Implement this function."
1111

1212
daysInBudget :: Int -> Double -> Double -> Double
13-
daysInBudget budget hourlyRate discount =
14-
fromIntegral (floor (fromIntegral budget / applyDiscount (dailyRate hourlyRate) discount * 10)) / 10
13+
daysInBudget = error "Implement this function."

0 commit comments

Comments
 (0)