Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- numberOfRepetition(input, result)
- numberOfRepetition([a,b,a,d,c,a,b], X)
- % Find the occurrences of given element in list
- %
- % occurrences([a,b,c,a],a,X).
- % -> X = 2.
- occurrences([],_,0).
- occurrences([X|Y],X,N):- occurrences(Y,X,W),N is W + 1.
- occurrences([X|Y],Z,N):- occurrences(Y,Z,N),X=Z.
- occurrences([],_,0).
- occurrences([X|Y],X,N):- occurrences(Y,X,W),N is W + 1.
- occurrences([X|Y],Z,N):- occurrences(Y,Z,N),X=Z.
- **make_list(Max):-
- findall((Num,Elem),occurrences([d,d,d,a,a,b,c,d,e],Elem,Num),L),
- sort(L,Sorted),
- last(Sorted,(_,Max)).**
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement