fork(3) download
copy 
  1. longitud([], 0).
  2. longitud([X|Xs], N) :- longitud(Xs, N1), N is N1 + 1.
  3.  
  4. ?- longitud([2,4,6,8], X), write('longitud: '), writeln(X).
Success #stdin #stdout #stderr 0.02s 7740KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
longitud: 4
stderr
copy 
Warning: /home/oOoDJF/prog:2:
	Singleton variables: [X]
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/HSpo4r
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!