Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- lEqualToTime(_, _, 0). % stopping state
- lEqualToTime(StationA, StationB, Time) :-
- overground(StationA, StationB, Time);
- overground(StationB, StationA, Time);
- NewTime is Time - 1, % decrement Time value each subsequent call
- lEqualToTime(StationA, StationB, NewTime). % recurse
Add Comment
Please, Sign In to add comment