fix: correct less or equal syntax

This commit is contained in:
Krzysztof Rudnicki 2023-06-04 14:47:21 +02:00
parent 1d45a8dd4d
commit 11b189877d

View File

@ -25,7 +25,7 @@ day_of_year(Date, DayOfYear) :-
atom_chars(Month, MonthChars),
month_days(Month, DaysInMonth, MonthDays),
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
% We always expect date to be in format ddmm where 'd' stands for day and 'm' stands for month