Sha256: 6da6073f25036f861473d7fd438b9a8b2b2d3974687fc07546db5e11388826c4
Contents?: true
Size: 1.15 KB
Versions: 84
Compression:
Stored size: 1.15 KB
Contents
-module(meetup).
-export([schedule/4]).
-type year() :: non_neg_integer().
-type month() :: 1..12.
-type day() :: 1..31.
-type date() :: {year(), month(), day()}.
-type day_of_week() :: monday | tuesday | wednesday | thursday | friday | saturday | sunday.
-type period() :: first | second | third | fourth | teenth | last.
-define (DAY_MAP, #{monday => 1, tuesday => 2, wednesday => 3, thursday => 4,
friday => 5, saturday => 6, sunday => 7}).
-spec schedule(year(), month(), day_of_week(), period()) -> date().
schedule(Year, Month, DayOfWeek, Period) ->
DoW = maps:get(DayOfWeek, ?DAY_MAP),
[Day] = [Day || Day <- day_range(Period, Year, Month),
calendar:day_of_the_week({Year, Month, Day}) =:= DoW],
{Year, Month, Day}.
day_range(first, _Year, _Month) ->
lists:seq(1, 7);
day_range(second, _Year, _Month) ->
lists:seq(8, 14);
day_range(third, _Year, _Month) ->
lists:seq(15, 21);
day_range(fourth, _Year, _Month) ->
lists:seq(22, 28);
day_range(teenth, _Year, _Month) ->
lists:seq(13, 19);
day_range(last, Year, Month) ->
LastDay = calendar:last_day_of_the_month(Year, Month),
lists:seq(LastDay - 6, LastDay).
Version data entries
84 entries across 84 versions & 1 rubygems