fork download
copy 
  1. split_into_pairs([A,B],[[A,B]]).
  2. split_into_pairs([A,B|T], [[A,B]|XX]) :- split_into_pairs(T, XX).
  3.  
  4. :- split_into_pairs([1,2,3,4,5,6],X), write(X).
  5. :- split_into_pairs([1,2,3],X), write(X).
Success #stdin #stdout #stderr 0.02s 6160KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
[[1, 2], [3, 4], [5, 6]]
stderr
copy 
Warning: /home/gJRDLs/prog.pl:5:
	Goal (directive) failed: user: (split_into_pairs([1, 2, 3], _G382), write(_G382))
https://ideone.com/ezF0z4
language:
Prolog (swi 7.6.4)
created:
11 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!