fork download 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. searchHerf(0,List,[],List):-!.
  6. searchHerf(N,List,[X|Now],Next):-N2 is N-1,
  7. 							select(X,List,List2),
  8. 							searchHerf(N2,List2,Now,Next).
  9. calc([],_,M,M):-!.
  10. calc([X|Ls],N,M,Res):-M2 is M+N*X,
  11. 					N2 is N+1,
  12. 					calc(Ls,N2,M2,Res).
  13.  
  14. main:-
  15. 	process,
  16. 	halt.
  17.  
  18. process:-
  19. 	/* your code goes here */
  20. 	List=[2,3,4,5,6,7,8,10],
  21. 	searchHerf(3,List,Ls,List2),
  22. 	searchHerf(5,List2,Rs,_),
  23. 	calc(Ls,1,0,LM),
  24. 	calc(Rs,1,0,RM),
  25. 	LM is RM,
  26. 	write(Ls),
  27. 	write(Rs),
  28. 	nl,
  29. 	false.
  30. process.
  31. :- main.
Success #stdin #stdout 0.11s 6992KB
comments (?)
stdin 
Standard input is empty
stdout 
[5,8,10][6,7,4,3,2]
[5,8,10][7,6,3,4,2]
[5,8,10][7,6,4,2,3]
[6,7,10][8,4,5,3,2]
[6,7,10][8,5,3,4,2]
[6,7,10][8,5,4,2,3]
[6,8,10][4,7,5,3,2]
[6,8,10][7,3,4,5,2]
[6,8,10][7,5,2,3,4]
[6,10,8][5,7,4,3,2]
[6,10,8][7,4,5,2,3]
[7,6,10][8,5,4,3,2]
[7,8,10][3,6,5,4,2]
[7,8,10][5,4,3,6,2]
[7,8,10][6,2,5,4,3]
[7,8,10][6,4,3,2,5]
[7,10,8][4,5,6,3,2]
[7,10,8][4,6,5,2,3]
[7,10,8][5,4,6,2,3]
[7,10,8][5,6,2,4,3]
[7,10,8][5,6,3,2,4]
[7,10,8][6,3,4,5,2]
[7,10,8][6,5,2,3,4]
[8,6,10][5,7,4,3,2]
[8,6,10][7,4,5,2,3]
[8,7,10][4,5,6,2,3]
[8,7,10][4,6,3,5,2]
[8,7,10][5,3,6,4,2]
[8,7,10][5,6,2,3,4]
[8,7,10][6,3,5,2,4]
[8,7,10][6,4,2,5,3]
[8,10,7][5,6,3,4,2]
[8,10,7][5,6,4,2,3]
[8,10,7][6,4,5,2,3]
[10,7,8][5,6,4,3,2]
[10,7,8][6,4,5,3,2]
[10,7,8][6,5,3,4,2]
[10,7,8][6,5,4,2,3]
[10,8,7][6,5,4,3,2]
https://ideone.com/nWGz64
language:
Prolog (swi 7.6.4)
created:
5 days 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!