5 lines
259 B
Perl
5 lines
259 B
Perl
|
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).
|