Newer
Older
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
-module(bench14).
-export([main/2]).
main(X,Y) ->
Z = case X of
terminate -> "the end";
{A,B} -> {[A + B,B - A],3};
{3,C} -> g(C);
_ -> {20 * 3,8}
end,
T = 2,
V = f(T) + h(2) + h(3),
W = g([X,Y,{X,Y}]),
Tuple = {Z,W,V},
Tuple.
g(X) ->
[_,_,{R,S}] = X,
case R of
[1,3] -> 21;
[A,B] -> (A * B) / 9;
T -> T;
_ -> f(4)
end.
f(7) ->
L = 2 + 9,
F = L * 3,
F + L;
f(4) -> 9;
f(2) -> 7;
f(X) -> X.
h(X) ->
case X of
2 -> j({2,4});
3 -> k([4,8]);
1 -> l(107)
end.
j(A) ->
{X,_} = A,
X.
k(B) ->
[H|T] = B,
H.
l(C) -> C - 1.