refactor getExpenditure

tamizhvendan · tamizhvendan · commit 56a6b03b68bb · 2018-02-11T12:30:31.000+05:30
diff --git a/fsharp/AddingMeaningToPrimitiveTypes/WithoutStaticMembers.fsx b/fsharp/AddingMeaningToPrimitiveTypes/WithoutStaticMembers.fsx
@@ -57,11 +57,10 @@ and getExpenses' transactions expenses =
 let getExpenditure expenseCategory transactions =
   getExpenses transactions
   |> List.filter (fun e -> e.Category = expenseCategory)
-  |> List.map (fun expense -> 
+  |> List.sumBy (fun expense -> 
     let (Money m) = expense.Amount 
     m
   )
-  |> List.sum
   |> Money
 
 

Original file line number	Diff line number	Diff line change
`@@ -57,11 +57,10 @@ and getExpenses' transactions expenses =`
`57`	`57`	`let getExpenditure expenseCategory transactions =`
`58`	`58`	`getExpenses transactions`
`59`	`59`	`\|> List.filter (fun e -> e.Category = expenseCategory)`
`60`		`- \|> List.map (fun expense ->`
	`60`	`+ \|> List.sumBy (fun expense ->`
`61`	`61`	`let (Money m) = expense.Amount`
`62`	`62`	`m`
`63`	`63`	`)`
`64`		`- \|> List.sum`
`65`	`64`	`\|> Money`
`66`	`65`
`67`	`66`