fork(1) download
copy 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5.  
  6. local_max([],[],_).
  7. local_max([XH|XT],Y,Temp) :-
  8.     ( XH =< Temp ->
  9.       local_max(XT,Y,Temp)
  10.       ;
  11.       local_max(XT,R,XH), Y = [XH|R]
  12.     ).
  13. main:-
  14. 	process,
  15. 	halt.
  16.  
  17. process:-
  18. 	local_max([ 1, 5, 2, 3, 4, 10, 15, 11, 12, 13, 20 ],A,0),
  19. 	write(A),
  20. 	true.
  21.  
  22. :- main.
Success #stdin #stdout 0.01s 31920KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1,5,10,15,20]
https://ideone.com/aIVmy1
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!