blob: f6bcb6570b0866f741d90d26633fc0ca2f58ad54 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
-module(on_load_a).
-on_load(on_load/0).
-export([data/0]).
on_load() ->
?MASTER ! {?MODULE,start},
on_load_b:data(),
%% Call local function.
120 = fact(5),
%% Call remote function.
LibDir = code:lib_dir(kernel),
?MASTER ! {?MODULE,LibDir},
ok.
data() ->
[a|on_load_b:data()].
fact(N) ->
fact(N, 1).
fact(0, P) -> P;
fact(1, P) -> P;
fact(N, P) -> fact(N-1, P*N).
|