fork download 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. splt([],[],[]).
  6. splt([(X1,Y1)|Xs],[X1|T1],[Y1|T2]):-
  7.   splt(Xs,T1,T2).
  8.  
  9. main:-
  10. 	process,
  11. 	halt.
  12.  
  13. process:-
  14. 	/* your code goes here */
  15. 	splt([('a',1),('b',2),('c',3)],L3,L4),
  16. 	write(L3),
  17. 	write(L4),
  18. 	true.
  19.  
  20. :- main.
Success #stdin #stdout 0.04s 7468KB
comments (?)
stdin 
Standard input is empty
stdout 
[a,b,c][1,2,3]
https://ideone.com/3VzJkr
language:
Prolog (swi 7.6.4)
created:
9 years 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!