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
|
-module(problem18).
-export([solve/0]).
solve() ->
PID = spawn(fun() -> gather(self(), 0, []) end),
spawn(fun() -> work(PID, 1, 1, gettri()) end),
receive
ANS ->
ANS
end.
work(Pid, P, I, [H|[]]) ->
Pid ! P*lists:nth(I, H);
work(Pid, P, I, [H|T]) ->
Q = P * lists:nth(I, H),
spawn(fun() -> work(Pid, Q, I, T) end),
spawn(fun() -> work(Pid, Q, I+1, T) end).
gather(Pid, 16384, L) ->
Pid ! lists:max(L);
gather(Pid, N, L) ->
receive
M ->
io:format("~p ", N+1),
gather(Pid, N+1, [M|L])
end.
gettri() -> [
[75],
[95, 64],
[17, 47, 82],
[18, 35, 87, 10],
[20, 04, 82, 47, 65],
[19, 01, 23, 75, 03, 34],
[88, 02, 77, 73, 07, 63, 67],
[99, 65, 04, 28, 06, 16, 70, 92],
[41, 41, 26, 56, 83, 40, 80, 70, 33],
[41, 48, 72, 33, 47, 32, 37, 16, 94, 29],
[53, 71, 44, 65, 25, 43, 91, 52, 97, 51, 14],
[70, 11, 33, 28, 77, 73, 17, 78, 39, 68, 17, 57],
[91, 71, 52, 38, 17, 14, 91, 43, 58, 50, 27, 29, 48],
[63, 66, 04, 68, 89, 53, 67, 30, 73, 16, 69, 87, 40, 31],
[04, 62, 98, 27, 23, 09, 70, 98, 73, 93, 38, 53, 60, 04, 23]
].
|