Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ar_prog([]).
- ar_prog([_]).
- ar_prog([H1,H2|T]) :- Diff is H2 - H1, ar_prog_helper([H1,H2|T], Diff).
- ar_prog_helper([], _).
- ar_prog_helper([_], _).
- ar_prog_helper([H1,H2|T], Diff) :- H2 - H1 =:= Diff, ar_prog_helper([H2|T], Diff).
Advertisement
Add Comment
Please, Sign In to add comment
