fork(1) download
copy 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. main:-
  6. 	fact(4,F),
  7. 	halt.
  8.  
  9. fact(0, 1).
  10. fact(N, F) :-
  11.     N > 0,                    /* N > 0 をチェック */
  12.     N1 is N-1,                /* N-1 を N1 に求める */
  13.     fact(N1, F1),             /* N1! を F1 に求める */
  14.     F is N*F1.                /* F は N*F1 とする */
  15.  
Success #stdin #stdout #stderr 0.06s 7156KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Warning: /home/BMuMUE/prog:5:
	Singleton variables: [F]
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/BbiTTZ
language:
Prolog (swi 7.6.4)
created:
11 days 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!