long_string([E|Es], L) :- long_string(E, 1, Es, L).

long_string(X, N, [Y|Ys], L) :-
  (  X = Y
  -> M is N+1,
    long_string(X, M, Ys, L)
  ; long_string(Y, 1, Ys, M),
     ( M > N -> L = M ; L = N )
  ).
long_string(_, N, [], N).