fork download
copy 
  1.     sug([], []).
  2.     sug([_|T1], [_|T2]) :- sameExceptLast(T1, T2).
  3.     sameExceptLast([], []).
  4.     sameExceptLast([_], [_]).
  5.     sameExceptLast([X|T1], [X|T2]) :- sameExceptLast(T1, T2).
  6. :- sug([a,b,c,d], [x,b,c,y]), write(yes).
  7. :- sug([a,b,c],[d,e,f]), write(yes).
Success #stdin #stdout 0.02s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
yes
https://ideone.com/jMxL8D
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!