Работа с текстом

[vadimc]

Дан текст.Ввести букву и найти все слова в которых доля этой буквы(отнашение числа повторений к длине слова)максимальна.

[rrrFer]

найти все слова

где искать слова?

p([], _, 0):-!.
p([H|T], H, N):-
  p(T,H,NN), !, N is NN + 1.
p([_|T], H, N):-
  p(T, H, N).

d(H, V, C):-
  length(H, L)
  , ( 
    L is 0, !, fail
    ; p(H,C,CH), !, V is CH / L
  ).

g([], _, _):-!, fail.
g([H],H,_):-!.
g([H|T], R, C):-
  g(T,TR,C), !, d(H, VH, C), d(TR, VTR, C)
  , (VTR > VH, R = TR; R = H).

на вот на SWI

использовать примерно так:

T = "e", T = [C|_], g(["asd", "qwee", "eerfffffffft"], R, C), string_to_list(RS, R), write(RS), !.

[Sciv]

на вот на SWI

Если не секрет - что такое SWI? по коду вижу, что пролог. Пока расшифровал как Star Wars I. Интересно

[Poma][a]

Если не секрет - что такое SWI? по коду вижу, что пролог.

тыц

Пока расшифровал как Star Wars I. Интересно