diff options
Diffstat (limited to 'pl')
| -rw-r--r-- | pl/episode_data.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/pl/episode_data.pl b/pl/episode_data.pl index c6a5f3a..0c43bdc 100644 --- a/pl/episode_data.pl +++ b/pl/episode_data.pl @@ -1,4 +1,5 @@ :- module(episode_data, [retract_episode/1, + last_episode/1, lookup_episode/3, lookup_episode_local/3, lookup_episode_remote/3]). @@ -21,6 +22,10 @@ detach :- % Interface. +last_episode(Ep) :- + setof(E, N^D^lookup_episode_local(E,N,D), Es), + last(Es, Ep). + lookup_episode(Ep, Name, Data) :- lookup_episode_local(Ep, Name, Data), !. lookup_episode(Ep, Name, Data) :- lookup_episode_remote(Ep, Name, Data). |