parprog_projekt/todo.pl

5 lines
259 B
Perl
Raw Normal View History

2024-06-12 09:02:48 +02:00
task('kolokwium', date(2024,06,17),1).
task('projekt_paradygmaty', date(2024,06,16),0).
task('projekt_BD', date(2024,06,20),2).
spoznione(X) :- task(X,Y,_),date_time_stamp(Y,S),get_time(T),S<T.
najwazniejsze(X,Y,Z) :- task(X, Y, Z), \+ (task(_, _, V), V < Z).