mojombo / rebar

This URL has Read+Write access

rebar / funs.erl
100644 19 lines (14 sloc) 0.228 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

-module(funs).
-export([listen/0, add/2, cat/2, fac/1]).
 
listen() ->
  rebar:start().
 
add(A, B) ->
  A + B.
  
cat(A, B) ->
  A ++ B.
  
fac(N) ->
  fac(1, N).
  
fac(Memo, 0) ->
  Memo;
fac(Memo, N) ->
  fac(Memo * N, N - 1).