Skip to content

Instantly share code, notes, and snippets.

@mwilliamson
Last active December 27, 2015 19:39
Show Gist options
  • Save mwilliamson/7378638 to your computer and use it in GitHub Desktop.
Save mwilliamson/7378638 to your computer and use it in GitHub Desktop.
Encode and de-code run-length encoding in Prolog with a single predicate.
encode([], []).
encode(XS, [E|ES]) :-
reverse(XS, XSReversed),
append(XRightReversed, XLeft, XSReversed),
XLeft \= [],
expand(XLeft, E),
reverse(XRightReversed, XRight),
encode(XRight, ES).
expand([X|XT], [Count, X]) :- expand(XT, [SubCount, X]), succ(SubCount, Count).
expand([], [0, _]).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment