fork download
copy 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. main:-
  6. 	process,
  7. 	halt.
  8.  
  9. /* Leitura da entrada */
  10.  
  11. ler_chars(S) :-
  12.     get_char(C),
  13.     ler_resto(C,S).
  14.  
  15. ler_resto(end_of_file, []).
  16. ler_resto(C, [C|R]) :-
  17.     get_char(C2),
  18.     ler_resto(C2, R).
  19.  
  20. ler_lista(L) --> ['('], pares(L), [')'].
  21.  
  22. pares([]) --> [].
  23. pares([Par|R]) --> par(Par), pares(R).
  24.  
  25. par([Linha,Pontos]) --> ['('], numero(CLinha), [' ', '.', ' '], numero(CPontos), [')'],
  26.                         { number_chars(Linha, CLinha), number_chars(Pontos, CPontos) }.
  27.  
  28. numero([]) --> [].
  29. numero([C|R]) --> [C], { is_digit(C) }, numero(R).
  30.  
  31. /* Exemplo de relação maior/2 */
  32.  
  33. maior(A,B) :- A > B.
  34.  
  35. /***** Código *****/
  36.  
  37. lista_maiores(L, Valor, Maiores) :-
  38.         findall(Linha, (member([Linha,Pontos], L), maior(Pontos, Valor)), Maiores).
  39.  
  40. /***** Fim código *****/
  41.  
  42. process:-
  43. 	ler_chars(Chars),
  44. 	ler_lista(L, Chars, []),
  45. 	lista_maiores(L, 2, Maiores),
  46. 	write(Maiores), nl,
  47. 	true.
  48.  
  49. :- main.
Success #stdin #stdout 0.04s 6160KB
comments (?)
stdin
copy 
((1 . 2)(2 . 3)(5 . 3)(2 . 7)(10 . 20))
stdout
copy 
[2, 5, 2, 10]
https://ideone.com/2cJleb
language:
Prolog (swi 7.6.4)
created:
8 years ago
visibility:
secret

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!