fork download
copy 
  1. proceed(0, L, L).
  2. proceed(_, [], []).
  3. proceed(N, [H|T], [NewH|Output]) :-
  4.     N > 0,
  5.     NewN is N - 1,
  6.     NewH is H - 1,
  7.     proceed(NewN, T, Output).
  8.  
  9. :- proceed(3,[10,9,8,7,6,5,4,3,2,1],X), write(X), nl,
  10.    proceed(30,[10,9,8,7,6,5,4,3,2,1],Y), write(Y).
Success #stdin #stdout #stderr 0.02s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[9, 8, 7, 7, 6, 5, 4, 3, 2, 1]
[9, 8, 7, 6, 5, 4, 3, 2, 1, 0]
stderr
copy
https://ideone.com/Hx3Twy
language:
Prolog (swi 7.6.4)
created:
10 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!