Files

5 lines
148 B
Prolog

schema([a,b,c,d,e]).
fds([ [[a],[b]], [[a,c],[d]], [[e],[a,b]],
[[a,d],[e]], [[a,b,c],[d]] ]).
answer(K) :- schema(R),fds(F),candkey(R,F,K).