fork download
copy 
  1. program :- get_char(X),get_char(Y),check(X,Y). 
  2. check('4','2'):- write('Finished'),!. 
  3. check(X,Y):-write('|'), write(X), write('|'), write(Y), write('|'), nl, get_char(Z),check(Y,Z).
  4. :- program.
Success #stdin #stdout 0.02s 6204KB
comments (?)
stdin
copy 
134567664564535542
stdout
copy 
|: |1|3|
|3|4|
|4|5|
|5|6|
|6|7|
|7|6|
|6|6|
|6|4|
|4|5|
|5|6|
|6|4|
|4|5|
|5|3|
|3|5|
|5|5|
|5|4|
Finished
https://ideone.com/EJv08
language:
Prolog (swi 7.6.4)
created:
14 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!