trietptm/gist:4277556

Created December 13, 2012 16:17

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/trietptm/4277556.js"></script>
Save trietptm/4277556 to your computer and use it in GitHub Desktop.

Download ZIP

Eliminate consecutive duplicates of list elements. If a list contains repeated elements they should be replaced with a single copy of the element. The order of the elements should not be changed.

Raw

gistfile1.prolog

	compress([X\|[]], [X]).
	compress([X\|[X\|Z]], L) :- compress([X\|Z], L),!.
	compress([X\|[Y\|Z]], [X\|L]) :- compress([Y\|Z], L),!.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment