day26.erl

% Enter your code here. Read input from STDIN. Print output to STDOUT
% Your class should be named solution

-module(solution).
-export([main/0]).

main() ->
    DateReturned = readDate(),
    DueDate = readDate(),
    DateDiff = calculateDifference(DateReturned, DueDate),
    Fine = calculateFine(DateDiff),
    io:fwrite("~w~n", [Fine]).

calculateDifference({Day1, Month1, Year1}, {Day2, Month2, Year2}) ->
    {Day1 - Day2, Month1 - Month2, Year1 - Year2}.

calculateFine({_DayDiff, _MonthDiff, YearDiff}) when YearDiff < 0 ->
    0;
calculateFine({_DayDiff, _MonthDiff, YearDiff}) when YearDiff > 0 ->
    10000;
calculateFine({_DayDiff, MonthDiff, _YearDiff}) when MonthDiff < 0 ->
    0;
calculateFine({_DayDiff, MonthDiff, _YearDiff}) when MonthDiff > 0 ->
    MonthDiff * 500;
calculateFine({DayDiff, _MonthDiff, _YearDiff}) when DayDiff < 0 ->
    0;
calculateFine({DayDiff, _MonthDiff, _YearDiff}) when DayDiff > 0 ->
    DayDiff * 15;
calculateFine({_DayDiff, _MonthDiff, _YearDiff}) ->
    0.

readDate() ->
	{ok, [Day, Month, Year]} = io:fread("", "~d ~d ~d"),
    {Day, Month, Year}.