fork download
copy 
  1. -module(prog).
  2. -export([main/0]).
  3.  
  4. main() ->
  5.   F = fun(_, 0)   -> 1;                    
  6.          (Fun, N) -> N * Fun(Fun, N-1) end,
  7.   Fact5 = F(F, 5),
  8.   io:format("5! = ~p~n", [Fact5]).
Success #stdin #stdout 0.18s 8448KB
comments (?)
stdin
copy 
undefined
stdout
copy 
5! = 120
https://ideone.com/nGq6V
language:
Erlang (erl 21.3.8)
created:
14 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!