tidy up

diff --git a/day9/day9.erl b/day9/day9.erl
index 25c5547c72921458c86bf6ca4832542600c83dfb..ae181db6ab7fa363f1e008f52593f3d3ca1d2465 100644 (file)
--- a/day9/day9.erl
+++ b/day9/day9.erl
@@ -56,12 +56,12 @@ solution2(Table) ->
 
 
 get_basins(Low_points, Table) ->
 
 
 get_basins(Low_points, Table) ->

-       get_basins(Low_points, Table, 0, []).
+       get_basins(Low_points, Table, []).

 
 

-get_basins([], _Table, _, Basins) -> Basins;
-get_basins([Low_point|Rest], Table, Count, Basins) ->
+get_basins([], _Table, Basins) -> Basins;
+get_basins([Low_point|Rest], Table, Basins) ->

   Basin = [Low_point|lists:usort(get_up_slopes([Low_point], Table))],
   Basin = [Low_point|lists:usort(get_up_slopes([Low_point], Table))],

-  get_basins(Rest, Table, Count + 1, [Basin|Basins]).
+  get_basins(Rest, Table, [Basin|Basins]).

 
 low_points([H|_] =  Table) ->
   X = length(H),
 
 low_points([H|_] =  Table) ->
   X = length(H),