fork download
copy 
  1. strange(S,T) :- suffer(M,T),pain(S,M).
  2. strange([],_). 
  3.  
  4. suffer(S,S).
  5. suffer(S, [_|T]) :- suffer(S,T). 
  6.  
  7. pain([H|S],[H|T]) :- pain(S,T).
  8. pain([H],[H|_]).
Success #stdin #stdout #stderr 0.04s 6904KB
comments (?)
stdin
copy 
swipl
[main]
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/3uDGKX
language:
Prolog (swi 7.6.4)
created:
1 year 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!