kuhyx/WUT_Computer_Science
1
0
Fork 0
mirror of https://github.com/kuhyx/WUT_Computer_Science.git synced 2026-07-06 12:03:16 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

fix: Allow for days in month to be equal to max number of days

Browse Source
This commit is contained in:
Krzysztof Rudnicki 2023-06-04 14:46:13 +02:00
parent 9f61157d59
commit 1d45a8dd4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/main.pl
View File

@ -25,7 +25,7 @@ day_of_year(Date, DayOfYear) :-
atom_chars(Month, MonthChars), atom_chars(Month, MonthChars),
month_days(Month, DaysInMonth, MonthDays), month_days(Month, DaysInMonth, MonthDays),
atom_number(Day, DayNumber), atom_number(Day, DayNumber),
((DayNumber < DaysInMonth, DayNumber > 0) -> DayOfYear is MonthDays + DayNumber) ; fail. ((DayNumber <= DaysInMonth, DayNumber > 0) -> DayOfYear is MonthDays + DayNumber) ; fail.
% interval(Date1, Date2) prints the number of days between Date1 and Date2 % interval(Date1, Date2) prints the number of days between Date1 and Date2
% We always expect date to be in format ddmm where 'd' stands for day and 'm' stands for month % We always expect date to be in format ddmm where 'd' stands for day and 'm' stands for month