money.ls

# Money -> Number
money-sum = (money) -> money |> obj-to-pairs |> map apply (*) |> sum

# Number -> Money
to-money = (sum) ->
	sum-places = "0000#sum" |> chars |> reverse |> map parse-int
	10000: floor sum / 10000
	5000: if sum-places.3 >= 5 then 1 else 0
	1000: if sum-places.3 >= 5 then sum-places.3 - 5 else sum-places.3
	500: if sum-places.2 >= 5 then 1 else 0
	100: if sum-places.2 >= 5 then sum-places.2 - 5 else sum-places.2
	50: if sum-places.1 >= 5 then 1 else 0
	10: if sum-places.1 >= 5 then sum-places.1 - 5 else sum-places.1
	5: if sum-places.1 >= 5 then 1 else 0
	1: if sum-places.0 >= 5 then sum-places.0 - 5 else sum-places.0