fork download
copy 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5.  
  6. onlySecond([],[]).
  7. onlySecond([_], []).
  8. onlySecond([_,H2|T1],[H2|T2]) :- onlySecond(T1,T2).
  9.  
  10. main:-
  11. 	process,
  12. 	halt.
  13.  
  14. process:-
  15. 	onlySecond([1,2,3,4,5,6,7], X), write(X), nl,
  16. 	true.
  17.  
  18. :- main.
Success #stdin #stdout 0.04s 7468KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[2,4,6]
https://ideone.com/LEFeoO
language:
Prolog (swi 7.6.4)
created:
8 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!