From 0248ed34ce3d05228bc5084669c3a27933be0c2e Mon Sep 17 00:00:00 2001
From: Nathan Lasseter <nathan.je.lasseter@googlemail.com>
Date: Sun, 4 Oct 2009 00:56:56 +0100
Subject: first commit

---
 problem18.erl | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 problem18.erl

(limited to 'problem18.erl')

diff --git a/problem18.erl b/problem18.erl
new file mode 100755
index 0000000..c5d8600
--- /dev/null
+++ b/problem18.erl
@@ -0,0 +1,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]
+].
-- 
cgit v1.2.1