day1 puzzle

.gitignore

@@ -0,0 +1,2 @@
+*.beam
+*.dump

day1/Makefile

@@ -0,0 +1,8 @@
+all: day1.beam
+	erl -noshell -s day1 start -s init stop
+
+day1.beam:
+	erlc day1.erl
+
+clean:
+	rm -f day1.beam

day1/day1.erl

@@ -0,0 +1,44 @@
+-module(day1).
+-export([start/0]).
+
+split_string_into_list_of_integers(Input)
+  -> io:fwrite("~s ", [Input]),
+     [ Z || Z <- lists:map(fun(X) -> {Y,_} = string:to_integer(X), Y end, re:split(Input, "")), is_integer(Z) ].
+
+sum_sequential(Numbers)
+  ->  Tail = lists:last(Numbers),
+      io:fwrite("~B~n", [sum_sequential_list(0, Tail, Numbers)]).
+
+sum_sequential_list(Count, LastDigit, [Head|Tail])
+  when LastDigit == Head  -> sum_sequential_list(Count + LastDigit, Head, Tail);
+sum_sequential_list(Count, _, [Head|Tail])
+                          -> sum_sequential_list(Count, Head, Tail);
+sum_sequential_list(Count, _, [])
+                          -> Count.
+
+sum_offset(List)
+  -> ListLength = lists:flatlength(List),
+     io:fwrite("~B~n", [sum_offset_list(0, 1, (ListLength div 2) + 1, ListLength, List)]).
+
+sum_offset_list(Count, _LeftIndex, RightIndex, ListLength, _List)
+  when RightIndex > ListLength -> Count;
+sum_offset_list(Count, LeftIndex, RightIndex, ListLength, List)
+                               -> LeftElement = lists:nth(LeftIndex, List),
+                                  RightElement = lists:nth(RightIndex, List),
+                                  if
+                                    LeftElement == RightElement -> sum_offset_list(Count + LeftElement + RightElement, LeftIndex + 1, RightIndex + 1, ListLength, List);
+                                                           true -> sum_offset_list(Count, LeftIndex + 1, RightIndex + 1, ListLength, List)
+                                  end.
+
+start()
+  ->  sum_sequential(split_string_into_list_of_integers("1111")),
+      sum_sequential(split_string_into_list_of_integers("1234")),
+      sum_sequential(split_string_into_list_of_integers("1122")),
+      sum_sequential(split_string_into_list_of_integers("91212129")),
+      sum_sequential(split_string_into_list_of_integers("823936645345581272695677318513459491834641129844393742672553544439126314399846773234845535593355348931499496184839582118817689171948635864427852215325421433717458975771369522138766248225963242168658975326354785415252974294317138511141826226866364555761117178764543435899886711426319675443679829181257496966219435831621565519667989898725836639626681645821714861443141893427672384716732765884844772433374798185955741311116365899659833634237938878181367317218635539667357364295754744829595842962773524584225427969467467611641591834876769829719248136613147351298534885563144114336211961674392912181735773851634298227454157885241769156811787611897349965331474217223461176896643242975397227859696554492996937235423272549348349528559432214521551656971136859972232854126262349381254424597348874447736545722261957871275935756764184378994167427983811716675476257858556464755677478725146588747147857375293675711575747132471727933773512571368467386151966568598964631331428869762151853634362356935751298121849281442128796517663482391226174256395515166361514442624944181255952124524815268864131969151433888721213595267927325759562132732586252438456569556992685896517565257787464673718221817783929691626876446423134331749327322367571432532857235214364221471769481667118117729326429556357572421333798517168997863151927281418238491791975399357393494751913155219862399959646993428921878798119215675548847845477994836744929918954159722827194721564121532315459611433157384994543332773796862165243183378464731546787498174844781781139571984272235872866886275879944921329959736315296733981313643956576956851762149275521949177991988236529475373595217665112434727744235789852852765675189342753695377219374791548554786671473733124951946779531847479755363363288448281622183736545494372344785112312749694167483996738384351293899149136857728545977442763489799693492319549773328626918874718387697878235744154491677922317518952687439655962477734559232755624943644966227973617788182213621899579391324399386146423427262874437992579573858589183571854577861459758534348533553925167947139351819511798829977371215856637215221838924612644785498936263849489519896548811254628976642391428413984281758771868781714266261781359762798")),
+      sum_offset(split_string_into_list_of_integers("1212")),
+      sum_offset(split_string_into_list_of_integers("1221")),
+      sum_offset(split_string_into_list_of_integers("123425")),
+      sum_offset(split_string_into_list_of_integers("123123")),
+      sum_offset(split_string_into_list_of_integers("12131415")),
+      sum_offset(split_string_into_list_of_integers("823936645345581272695677318513459491834641129844393742672553544439126314399846773234845535593355348931499496184839582118817689171948635864427852215325421433717458975771369522138766248225963242168658975326354785415252974294317138511141826226866364555761117178764543435899886711426319675443679829181257496966219435831621565519667989898725836639626681645821714861443141893427672384716732765884844772433374798185955741311116365899659833634237938878181367317218635539667357364295754744829595842962773524584225427969467467611641591834876769829719248136613147351298534885563144114336211961674392912181735773851634298227454157885241769156811787611897349965331474217223461176896643242975397227859696554492996937235423272549348349528559432214521551656971136859972232854126262349381254424597348874447736545722261957871275935756764184378994167427983811716675476257858556464755677478725146588747147857375293675711575747132471727933773512571368467386151966568598964631331428869762151853634362356935751298121849281442128796517663482391226174256395515166361514442624944181255952124524815268864131969151433888721213595267927325759562132732586252438456569556992685896517565257787464673718221817783929691626876446423134331749327322367571432532857235214364221471769481667118117729326429556357572421333798517168997863151927281418238491791975399357393494751913155219862399959646993428921878798119215675548847845477994836744929918954159722827194721564121532315459611433157384994543332773796862165243183378464731546787498174844781781139571984272235872866886275879944921329959736315296733981313643956576956851762149275521949177991988236529475373595217665112434727744235789852852765675189342753695377219374791548554786671473733124951946779531847479755363363288448281622183736545494372344785112312749694167483996738384351293899149136857728545977442763489799693492319549773328626918874718387697878235744154491677922317518952687439655962477734559232755624943644966227973617788182213621899579391324399386146423427262874437992579573858589183571854577861459758534348533553925167947139351819511798829977371215856637215221838924612644785498936263849489519896548811254628976642391428413984281758771868781714266261781359762798")).