Day 2
This commit is contained in:
parent
aedc078ad7
commit
ebecba063e
GPG Key ID:
94A5AB95422746E5
|
|
@ -0,0 +1,76 @@
|
|||
defmodule Day2 do
|
||||
def count_characters(id) do
|
||||
id
|
||||
|> String.graphemes()
|
||||
|> Enum.reduce(%{}, fn c, acc ->
|
||||
Map.update(acc, c, 1, &(&1 + 1))
|
||||
end)
|
||||
end
|
||||
|
||||
def checksum(list) do
|
||||
characters = Enum.map(list, &count_characters/1)
|
||||
two = Enum.count(characters, any_char_count(2))
|
||||
three = Enum.count(characters, any_char_count(3))
|
||||
two * three
|
||||
end
|
||||
|
||||
defp any_char_count(n) do
|
||||
fn map ->
|
||||
map
|
||||
|> Enum.to_list()
|
||||
|> Enum.any?(fn {_c, count} -> count == n end)
|
||||
end
|
||||
end
|
||||
|
||||
def diff(a, b) do
|
||||
a = String.graphemes(a)
|
||||
b = String.graphemes(b)
|
||||
Enum.zip(a, b)
|
||||
|> Enum.reduce({0, ""}, fn {a, b}, {diff_count, common} ->
|
||||
cond do
|
||||
a == b ->
|
||||
{diff_count, common <> a}
|
||||
true ->
|
||||
{diff_count + 1, common}
|
||||
end
|
||||
end)
|
||||
end
|
||||
|
||||
def match(id, list) do
|
||||
Enum.reduce_while(list, nil, fn other_id, _acc ->
|
||||
case diff(id, other_id) do
|
||||
{1, common} -> {:halt, common}
|
||||
_ -> {:cont, nil}
|
||||
end
|
||||
end)
|
||||
end
|
||||
|
||||
def correct_boxes(list) do
|
||||
list
|
||||
|> Enum.reduce_while(nil, fn id, _acc ->
|
||||
case match(id, list) do
|
||||
nil -> {:cont, nil}
|
||||
common -> {:halt, common}
|
||||
end
|
||||
end)
|
||||
end
|
||||
|
||||
def except(list, except) do
|
||||
Enum.reject(list, fn el -> el == except end)
|
||||
end
|
||||
|
||||
defp parse_input() do
|
||||
File.read!("lib/day2/input.txt")
|
||||
|> String.split("\n")
|
||||
end
|
||||
|
||||
def part1() do
|
||||
parse_input()
|
||||
|> checksum()
|
||||
end
|
||||
|
||||
def part2() do
|
||||
parse_input()
|
||||
|> correct_boxes()
|
||||
end
|
||||
end
|
||||
|
|
@ -0,0 +1,250 @@
|
|||
bpacnmelhhzpygfsjoxtvkwuor
|
||||
biacnmelnizqygfsjoctvkwudr
|
||||
bpaccmllhizyygfsjoxtvkwudr
|
||||
rpacnmelhizqsufsjoxtvkwudr
|
||||
bfacnmelhizqygfsjoxtvwwudp
|
||||
bpacnmelhizqynfsjodtvkyudr
|
||||
bpafnmelhizqpgfsjjxtvkwudr
|
||||
bpackmelhizcygfsjoxtvkwudo
|
||||
bmacnmilhizqygfsjoltvkwudr
|
||||
bpafnmelhizuygfsjoxtvkwsdr
|
||||
boacnmylhizqygfsjoxtvxwudr
|
||||
bpbcjmelhizqygfsjoxtgkwudr
|
||||
bpacnmglhizqygfsjixtlkwudr
|
||||
bpacnmclhizqygfsjoxtvkwtqr
|
||||
bpacnmelhczqygtsjoptvkwudr
|
||||
bpacnmelhizqywfsaoxtvkbudr
|
||||
apacnmelhizqygcsjoxtvkwhdr
|
||||
bpacnmelrizqygfsbpxtvkwudr
|
||||
tpkcnmelpizqygfsjoxtvkwudr
|
||||
bpacnmelhizqlgfsjobtmkwudr
|
||||
npacnmelhizqygffjoxtvkwudf
|
||||
bpacnmeehqzqygqsjoxtvkwudr
|
||||
bpecnmelhizqigfsjvxtvkwudr
|
||||
bpacnmelhizqysfsjoxtvkdfdr
|
||||
bpacnfelhkzqygfsjoxtvkwfdr
|
||||
bpacnbelvizqygfsjoxthkwudr
|
||||
bpacnoelhizqygfejoxtvkwudn
|
||||
bpacnmelhizqygfzpkxtvkwudr
|
||||
bpahnmelhizqyufsjoxmvkwudr
|
||||
bpacnmelhizqygfsnoxtvkwmmr
|
||||
bpacnmelhizqygfsjoatvkludf
|
||||
bpacnmylhizqygfsjlxtvksudr
|
||||
bpacnmekhpzqygysjoxtvkwudr
|
||||
bpacnselhizqogfswoxtvkwudr
|
||||
bpacnmelhizqprfsjoxwvkwudr
|
||||
bpatnmelhinqygfsjoctvkwudr
|
||||
bpacnqelhqzqygfsxoxtvkwudr
|
||||
bpabnmelhiyqygfsjoxtykwudr
|
||||
bpacnivlhizqygfsjoxtviwudr
|
||||
bpkcnmylhizqygfsjoxtvkwcdr
|
||||
bpafnmflhizqygtsjoxtvkwudr
|
||||
bpachmelhizqygfsjixtvkwudg
|
||||
bpacymelhizqygfsjoxtykwuar
|
||||
bpacnkelhizqdgfsjoxtskwudr
|
||||
bpacnmezhizqggbsjoxtvkwudr
|
||||
bpacnmqlhizqygrsjoxzvkwudr
|
||||
bpaczmelhizqyhfsjoxfvkwudr
|
||||
bdacnmelhyzqygusjoxtvkwudr
|
||||
bpacbmelhizqywfsjostvkwudr
|
||||
bpacnmelhihzygfstoxtvkwudr
|
||||
bpactmelhizqygfsjcxtvkwydr
|
||||
bkacnmethizqytfsjoxtvkwudr
|
||||
bpacnmalhizqydfskoxtvkwudr
|
||||
spacnmelbizqygfsjoxdvkwudr
|
||||
lpalnmelhizoygfsjoxtvkwudr
|
||||
bpacjmeghizqygfsjoxtviwudr
|
||||
bpacnmeqhizxygfsjoxgvkwudr
|
||||
bpacnmelhizqygosjoxtvkkuhr
|
||||
bpacnmelhiznbxfsjoxtvkwudr
|
||||
bgacnmelhizqygfsjbxivkwudr
|
||||
bpacnmelhizqygfjjowtvswudr
|
||||
bpacnmelhizqygfsjovtgkmudr
|
||||
bpacnmelcmzqygfspoxtvkwudr
|
||||
bpvcnmelhizqyvfcjoxtvkwudr
|
||||
bpacnmeahizqjgfsjoxtvkwukr
|
||||
bpacnoelwizqygfsjoxtvkaudr
|
||||
xpacnmelhizqygfsjoxdvkwedr
|
||||
mpacnmelqizqygfsjoxtvkwudx
|
||||
bppcnmelhizqygfsjfxtvkhudr
|
||||
bpacnmclhizqyhfsjaxtvkwudr
|
||||
opacsmelhizqygfsjmxtvkwudr
|
||||
bpafnmelhizqjgfsjoxtvkrudr
|
||||
bpdcnmilhizqygfsjoxtvkludr
|
||||
bpainmelhizqygfsjtntvkwudr
|
||||
bradnmelhizqygfsjextvkwudr
|
||||
bpacnmelhizqygfmsoxtvkwudg
|
||||
bpacneelhizqygvrjoxtvkwudr
|
||||
bpacnpelhizqygfsjoxyvkwudf
|
||||
bpacnmelhizqygfsqoqtvkwodr
|
||||
bpacnmelhizjyghsjoxcvkwudr
|
||||
bpacnmelmibqygfsjoxtvnwudr
|
||||
jpacnmelaizqygfwjoxtvkwudr
|
||||
zpachmelhizqygfsjsxtvkwudr
|
||||
bpacnmelfizqykfsjomtvkwudr
|
||||
bpacnmllwizqygfsjoxtvkwusr
|
||||
bpaynmelhizqygfsjoxtvowcdr
|
||||
jpacnmqlhizqygfsjoxtvknudr
|
||||
bpacxmelhizqyffsjoxtvkwugr
|
||||
apawnmelhizqygfsjtxtvkwudr
|
||||
mpacnmelhitqigfsjoxtvkwudr
|
||||
bpacnmelhhzqygfsjoxtvkyzdr
|
||||
gpacnmelhizqynfsjoxtvkwudm
|
||||
bnacnkelhizqygfsjoxtpkwudr
|
||||
bpacnmelfizqygfsumxtvkwudr
|
||||
bpacnmelhisqygfsjohtvowudr
|
||||
bpacnmelhimqygxsjoxtvkwudn
|
||||
bpscnmeliizqygfsjoxtvkwunr
|
||||
qpacnmelhizqycfsjoxtvkwndr
|
||||
bpacnmelhijqygfsjohtvkyudr
|
||||
bpacnmelhizqykfsjkxtvknudr
|
||||
bpacnqilhizqygfsjoxtvkoudr
|
||||
bpacnmelhizqzgmsjoxtvkwurr
|
||||
bpdcnmelhizqygfsjoutukwudr
|
||||
bpecnmeghizqygfsjoxgvkwudr
|
||||
bpicnmelhizqygfrjoxtvlwudr
|
||||
bpacnmelhizfygfsroxtvkwodr
|
||||
buacnmelhizqygjsjoxtvkvudr
|
||||
bpacnmelhixqykfsjoxtvrwudr
|
||||
bpacnmelhizqygvejcxtvkwudr
|
||||
bpacnmjlhizqylfsjoxtvkwuor
|
||||
qpacnmelhizqygfsjoxfdkwudr
|
||||
bpfcnmemhizqygfsjoxtvknudr
|
||||
bpacnmelhizqoffsjqxtvkwudr
|
||||
hpacnielhiqqygfsjoxtvkwudr
|
||||
gpacnmelhizqygfsewxtvkwudr
|
||||
bpacnmellizqylxsjoxtvkwudr
|
||||
bpacnmenhizqymfsjoxtvkmudr
|
||||
bpacnfelhizqygcsjoltvkwudr
|
||||
bpacnmelhqqqygfsjoxtvkuudr
|
||||
bplgnmelhiqqygfsjoxtvkwudr
|
||||
bpacnzelhizqygfgjoxtvnwudr
|
||||
bpacnmelhizqygfsjoktvknunr
|
||||
bpacnmdlhioqygfnjoxtvkwudr
|
||||
epacnmelwizqyjfsjoxtvkwudr
|
||||
bpacxmelhazfygfsjoxtvkwudr
|
||||
bpacnmejhezqygfsjoxtskwudr
|
||||
bpacnqelhihqyzfsjoxtvkwudr
|
||||
bpacnbelhizqyrfsjoxtvkmudr
|
||||
bpacnmelhizqygfsjoxtylwzdr
|
||||
bpacnmelwizqygfsjodtvkhudr
|
||||
bpacnnelhizqygfsjoxtwkwadr
|
||||
bpacimelhizqygfsnoxtvkwuor
|
||||
bpacnmelhizqyaasjoxtlkwudr
|
||||
bpacnmelhizqyeffjoxtvkwuds
|
||||
bpacnmenhizqygxscoxtvkwudr
|
||||
bpacnmelhidqygfsjowtskwudr
|
||||
bpacnmeliizqygfsjoxhvkwucr
|
||||
bpacimelhizqygfsjoxtvktuwr
|
||||
bpainmelhhzqygfsjzxtvkwudr
|
||||
bpacamelhizqygfsjogtvkwbdr
|
||||
bpccnmelgizqygfsjoxtykwudr
|
||||
bpacnmelhizwegfsjoxtvkwadr
|
||||
bpackmelhbzqygqsjoxtvkwudr
|
||||
bpacymeihizqyffsjoxtvkwudr
|
||||
bpacnielhczqygfsjoxtvkwudk
|
||||
bpacnmejhizqygffjoxjvkwudr
|
||||
ppacnmelhizqygfsjoxtigwudr
|
||||
bpjcnmolhizqygfsjoxtvkwndr
|
||||
bpacnmelcizqygrsjoxtakwudr
|
||||
cpawnmelhizqygfsjoxmvkwudr
|
||||
bwacnmelhizqygesjoxtakwudr
|
||||
bpacnmelhizqygfsjexsvkwddr
|
||||
bpaunmelhiuqygfsjoxtvkwtdr
|
||||
bpacnmellimqygfsjextvkwudr
|
||||
bpacnmerhizqygfsaoxvvkwudr
|
||||
bpacnmglhizqygfsjixtukwudr
|
||||
ppacnmelhizqygfsjoxtvkdudp
|
||||
bpacnmedhizqygukjoxtvkwudr
|
||||
bpccnmelhizqngfsjoxtvkwadr
|
||||
bgacnmeldizqygfscoxtvkwudr
|
||||
bpacngelhizsygfsjoxtvkwkdr
|
||||
bpacnpelhizqygfsjoxctkwudr
|
||||
bpacnmylhizqygfcjoxtvkwmdr
|
||||
npacnmelhizqygfsjoxtwkwuds
|
||||
bpaxnmelhizqydfsjoxyvkwudr
|
||||
bpacnhelhizjygfsjoxtvkmudr
|
||||
bpacnkelhczqygfnjoxtvkwudr
|
||||
bfacnmelhizrygfsjoxtvkwodr
|
||||
bpycnmelhizqygfofoxtvkwudr
|
||||
qpacpselhizqygfsjoxtvkwudr
|
||||
bpvcnmelhezqygfsjoxttkwudr
|
||||
bpacnmwlhizqygfijoxtmkwudr
|
||||
bsacnmelhikqygfsjoxttkwudr
|
||||
bpccnxelhizqyafsjoxtvkwudr
|
||||
bpacnmelhizqygfswhxtvewudr
|
||||
vpacnmzlhizqygfsvoxtvkwudr
|
||||
bpacnmelhihqygfsjoxtvkqurr
|
||||
bpacnmelhixqygazjoxtvkwudr
|
||||
bpavnmelhizqygfsjozpvkwudr
|
||||
bpacnmclhizuygfsjoxmvkwudr
|
||||
bpacnmelhizryufsjoxtkkwudr
|
||||
bpacnmelhtzqygfsjobtvkwufr
|
||||
bpacnmelhizqmlfsjoxtvkwudq
|
||||
bpaaneelhizqygfsjlxtvkwudr
|
||||
bpacnmelhxzqygfsjoxthkwuhr
|
||||
bpacnmeshizqygfcjoxtvkwude
|
||||
bpacnzqlhizqygfsxoxtvkwudr
|
||||
bgaanmelhizqycfsjoxtvkwudr
|
||||
bpacnmexhizqygfsroxtvkwudn
|
||||
bpmmnmelhizqygfajoxtvkwudr
|
||||
bpacnmelhizqylfsjoxtckwhdr
|
||||
bpicnmelhizqyrfsjoxtvkwudi
|
||||
zpacnmelhizvycfsjoxtvkwudr
|
||||
bpamnmkllizqygfsjoxtvkwudr
|
||||
bpacnmelhrzqyrfsjoxgvkwudr
|
||||
bpadnmelhczqygfsjoxtlkwudr
|
||||
bpacrmelhizqygrsjoxtvkiudr
|
||||
lpacnmelhizqygfsjoxtgkwxdr
|
||||
fpacnmalhiuqygfsjoxtvkwudr
|
||||
bpacnmelhizqygfsjixtvfwcdr
|
||||
bpccnmelhxzqygfkjoxtvkwudr
|
||||
bpacnmepaizqygfsjoctvkwudr
|
||||
tpacnmelhivqygfsxoxtvkwudr
|
||||
kpacnfelhitqygfsjoxtvkwudr
|
||||
baacnzelhizqygfsjoxtvkwudx
|
||||
bcycnmeghizqygfsjoxtvkwudr
|
||||
wpacotelhizqygfsjoxtvkwudr
|
||||
bpacnmsshizqygrsjoxtvkwudr
|
||||
blacnmelhizqygfsjoxtykwvdr
|
||||
bkacnmelhizqygfsjoxuvkludr
|
||||
bpacnmelhizaugfsjoxtvhwudr
|
||||
fpavnmelhizqygfsgoxtvkwudr
|
||||
bpachmelnizqygfsjextvkwudr
|
||||
bpacnmelhizqpgfsjoxtvkwldu
|
||||
bpacnmelhizqygfsloftvywudr
|
||||
bpacntelhvzqygfejoxtvkwudr
|
||||
bpacnmeldizqygfsjmxtvkdudr
|
||||
byacnmelhizqygfsjsxtvkwudh
|
||||
bpacnmellizqygssxoxtvkwudr
|
||||
bpacnmelhizqygfsjootvknuir
|
||||
bpacnmelhitqjgfsjoxivkwudr
|
||||
bpacnmelhazaygfsjoxtvfwudr
|
||||
bpacnzenhizqygfsjzxtvkwudr
|
||||
bpacnmelhizqypfsdoxtvkwuar
|
||||
bpannmelhizqygnsjoxtvkwndr
|
||||
bracnmeldizsygfsjoxtvkwudr
|
||||
bpacnmelhizwygfsjugtvkwudr
|
||||
bpatnmelhizqygfsjoytvkwulr
|
||||
upacnmelhizqygfsjurtvkwudr
|
||||
bpaenmezhizqygfsjostvkwudr
|
||||
bpacnmelhizpygfsjodhvkwudr
|
||||
bpacnmelhizqygfsjogtvkguwr
|
||||
bpacnmelhisqygfsjoxtpkuudr
|
||||
bxacnmelhizqygfsjdxtvkfudr
|
||||
bpacnmelhizqygfsjohqvkwudu
|
||||
bzacnmtlhizqygfsjoxsvkwudr
|
||||
bpacnmplhixrygfsjoxtvkwudr
|
||||
bpacnmelhizqhgfsjomtvkwudg
|
||||
bpacnmezhizqygfsjxxtykwudr
|
||||
bpacnmwlhizqygfujoxtzkwudr
|
||||
tpacnmelhizqygfsjoxkvpwudr
|
||||
bpawsmenhizqygfsjoxtvkwudr
|
||||
bpacnmelhizqtgfsjoxttkwuqr
|
||||
bpkcbmelhizqygfsjoxtvkwucr
|
||||
bpacfmekhizqygfsjoxtvkwuds
|
||||
bpacnmethizqynfajoxtvkwudr
|
||||
bpocnmclhizqygfsjoxtvkwukr
|
||||
zpacnmwlhizqygfsjoxzvkwudr
|
||||
bpacpoelhqzqygfsjoxtvkwudr
|
||||
bpacnlelhizqyzfsjoxtvkwukr
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
defmodule Day2Test do
|
||||
use ExUnit.Case
|
||||
doctest Day2
|
||||
|
||||
test "count characters" do
|
||||
assert Day2.count_characters("abcdef") == %{"a" => 1, "b" => 1, "c" => 1, "d" => 1, "e" => 1, "f" => 1}
|
||||
assert Day2.count_characters("bababc") == %{"a" => 2, "b" => 3, "c" => 1}
|
||||
assert Day2.count_characters("abbcde") == %{"a" => 1, "b" => 2, "c" => 1, "d" => 1, "e" => 1}
|
||||
end
|
||||
|
||||
test "checksum list" do
|
||||
list = ["abcdef", "bababc", "abbcde", "abcccd", "aabcdd", "abcdee", "ababab"]
|
||||
assert Day2.checksum(list) == 12
|
||||
end
|
||||
|
||||
test "diff" do
|
||||
assert Day2.diff("fghij", "fguij") == {1, "fgij"}
|
||||
end
|
||||
|
||||
test "match" do
|
||||
list = ["abcde", "fghij", "klmno", "pqrst", "fguij", "axcye", "wvxyz"]
|
||||
assert Day2.match("fghij", list) == "fgij"
|
||||
end
|
||||
|
||||
test "correct boxes" do
|
||||
list = ["abcde", "fghij", "klmno", "pqrst", "fguij", "axcye", "wvxyz"]
|
||||
assert Day2.correct_boxes(list) == "fgij"
|
||||
end
|
||||
end
|
||||
Loading…
Reference in New Issue