parprog_projekt/todo.pl

7 lines
290 B
Perl
Raw Permalink 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).
2024-06-13 13:46:25 +02:00
task('task', date(2024,06,10),5).
2024-06-12 09:02:48 +02:00
spoznione(X) :- task(X,Y,_),date_time_stamp(Y,S),get_time(T),S<T.
2024-06-13 13:46:25 +02:00
najwazniejsze(X) :- task(X, _, Z), \+ (task(_, _, V), V < Z).