First stab at concurrency

sudoku.erl

@@ -28,7 +28,21 @@ solve_file(Filename, Seperator) ->
     Solutions.
 
 solve_all(GridList) ->
-    map(fun time_solve/1, GridList).
+    PidGrids = [{spawn(fun server/0), Grid}|| Grid <- GridList],
+    Pids = [Pid || {Pid, _} <- PidGrids],
+    map(fun({Pid, Grid}) -> Pid ! {self(), solve, Grid} end, PidGrids),
+    map(fun receiveSolution/1, Pids).
+
+receiveSolution(Pid) ->
+    receive
+        {Pid, Puzzle} -> Puzzle
+    end.
+
+server() ->
+    receive
+        {From, solve, GridString} ->
+            From ! {self(), time_solve(GridString)}
+    end.
 
 from_file(Filename, Seperator) ->
     {ok, BinData} = file:read_file(Filename),