fork(11) download
copy 
  1. pack([], []).
  2.  
  3. pack([X], [[X]]).
  4.  
  5. pack([H, T|TS], [[H]|TR]):-
  6.     H \= T,
  7.     pack([T|TS], TR).
  8.  
  9. pack([H, H|HS], [[H|TFR]|TR]):-
  10.     pack([H|HS], [TFR|TR]).
  11.  
  12. :- pack([a,a,a,a,b,c,c,a,a,d,e,e,e,e],X), write(X).
Success #stdin #stdout #stderr 0.02s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[a, a, a, a], [b], [c, c], [a, a], [d], [e, e, e, e]]
stderr
copy
https://ideone.com/4W4lgB
language:
Prolog (swi 7.6.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!