CSE505/B/reach.lp

5 lines
91 B
Plaintext
Raw Normal View History

2024-02-21 23:53:58 -05:00
#include "reachin1000".
source(3).
reach(Y) :- edge(X,Y), reach(X).
reach(X) :- source(X).