I put together a little script to help me recover the injury. It prints out what I expect, however the dates do not seem to be sorted as I would expect - sorting by month / day seems to work, but not by year. Same result if I only sort the list of dates and not use struct.
Please note using https://github.com/lau/calendar to fill in the date range.
defmodule Phase do
defstruct day: "", weight: ""
end
defmodule Recovery do
alias Calendar.Date
def phases(start_date, end_date, start_weight, increase_by) do
date_range = Date.days_after_until(start_date, end_date, true) |> Enum.to_list
values = do_phases(date_range, [], start_weight, increase_by)
Enum.sort_by(values, &(&1.day))
end
defp do_phases([], recovery_plan, _weight, _increase_by), do: recovery_plan
defp do_phases([head | tail], recovery_plan, weight, increase_by) do
v = [%Phase{day: head, weight: weight} | recovery_plan]
do_phases(tail, v, weight + increase_by, increase_by)
end
end
Running in iex displays the following:
iex(18)> d1 = Date.from_erl! {2016, 12, 29}
iex(19)> d2 = Date.from_erl! {2017, 1, 19}
iex(24)> Recovery.phases(d1, d2, 30, 5)
[%Phase{day: ~D[2017-01-01], weight: 45},
%Phase{day: ~D[2017-01-02], weight: 50},
%Phase{day: ~D[2017-01-03], weight: 55},
%Phase{day: ~D[2017-01-04], weight: 60},
%Phase{day: ~D[2017-01-05], weight: 65},
%Phase{day: ~D[2017-01-06], weight: 70},
%Phase{day: ~D[2017-01-07], weight: 75},
%Phase{day: ~D[2017-01-08], weight: 80},
%Phase{day: ~D[2017-01-09], weight: 85},
%Phase{day: ~D[2017-01-10], weight: 90},
%Phase{day: ~D[2017-01-11], weight: 95},
%Phase{day: ~D[2017-01-12], weight: 100},
%Phase{day: ~D[2017-01-13], weight: 105},
%Phase{day: ~D[2017-01-14], weight: 110},
%Phase{day: ~D[2017-01-15], weight: 115},
%Phase{day: ~D[2017-01-16], weight: 120},
%Phase{day: ~D[2017-01-17], weight: 125},
%Phase{day: ~D[2017-01-18], weight: 130},
%Phase{day: ~D[2017-01-19], weight: 135},
%Phase{day: ~D[2016-12-29], weight: 30},
%Phase{day: ~D[2016-12-30], weight: 35},
%Phase{day: ~D[2016-12-31], weight: 40}]