codeAdventDay2Part2.hs

ids = ["naosmkcwtdbfivxuphzweraljq","nvssmicltdbfiyxuphzgeraljq","nvosmkcwwdbfiyxuphzeeraljx","nvosmkcqtdbfiyxupkzgeraljw","qvosmkcwtdbhiyxuphzgeraljh","nvocqkcktdbfiyxuphzgeraljq","nvosmhcwtdbfiyxmphzgekaljq","nvosmkcwtdbfuyxwpszgeraljq","nvosmocwtcbfiyxupfzgeraljq","nvosmkcwtdbfiyxubczgeraljv","nvosmkswtdbfiyxuphzgeruejq","nlosmkcwtqbfiyxuphzgyraljq","nvosmkcwtdbficxuphzgwraljk","nvosmkkwtdbfiyxxphzgeralcq","vvosmkcetdbfiyxumhzgeraljq","evosmkcdtdbfiyxuphkgeraljq","nvosmkvwtdbkiyxuphzgeraejq","nvoszkcwtdbfimxuphzgeraljb","nvozmkcwtdbfiyxuphzgrrcljq","nvosvacwtdbfiyxuphzgeralzq","nvosmkcwgdofiyxuthzgeraljq","nvosmkcwasbfiyxuphzgeradjq","nvosmkcatobfiyxtphzgeraljq","nvosmkewtdsfiyxuphzgekaljq","tvormkcwtdbfiyxuphzieraljq","nvosgkcwtdbfiyxuuhzgeraqjq","nvosmkcwtdbqiwxuphzgeralvq","nvosmkcwtybfiydcphzgeraljq","nvosnkcwtdbfiyxuphzulraljq","nvosmkcwtdbbiyuupnzgeraljq","nvosmwcwtdbfiyxuphzneraojq","nvohlkcwtdbftyxuphzgeraljq","nvasmkcwbdbfiyiuphzgeraljq","nvosmkujtdbfiyxuphzgeraljz","nvosmgcstdbfiyxuphzgeraljd","nvoswkcwtsbziyxuphzgeraljq","nvosmmcwtdbfiyxupbzzeraljq","nvosmkcwtdbfifxulhzgeralji","nvolmkcwtdbmiyxuphzgeraljv","lvnsmkcwtdbfiyxuphzzeraljq","nvqsmkcwtdbfiyxuphageralfq","nvosmkcwtdmfiyluphzgeralzq","nvommvcwtdbfiyxupjzgeraljq","naosmkcwtdbfsyxuphzgsraljq","avosmkcwtdbfiyxuphzgebafjq","ndozmkcwtdbfiyxuhhzgeraljq","nvosmkcwtubfiyxuphooeraljq","nvosmkcwtdbliyxuphzgmraljx","nvosmkcuddbfimxuphzgeraljq","wvosmkzwrdbfiyxuphzgeraljq","nvosmkcqtdbfiyxupjzgeraijq","nvosbkcwtdbfiyduphzgeruljq","yzosmkcntdbfiyxuphzgeraljq","nvolmkcwtdbfiyxuphugeralfq","nvrsmkcwtdbjiyxuphzgejaljq","nvgsmkcwtdbfiyxuphoglraljq","nvosmkcwtdbfioxuphzgezalhq","nvosjkcwtdbfipxuphzgekaljq","nvosmkcwtabfiyxlpazgeraljq","nvosmkfwtpnfiyxuphzgeraljq","nvokmbcwtdbeiyxuphzgeraljq","nvosmkcwtdbfiyxupmzgmlaljq","nvosmkcwtdhfiykurhzgeraljq","nvosmkcwwdbfiyxumhzgiraljq","cvosmscwtdbfikxuphzgeraljq","nvosmkcwtdnzirxuphzgeraljq","nvosmscwtdbfiyxuuhbgeraljq","nvosmkcwtdbfidxpphzgeraajq","nvosmkcwtdbfiyxuqhzgurcljq","nvosmkcwtekfiyxrphzgeraljq","ntosmkcwtpqfiyxuphzgeraljq","nvosmkcdtdbfhyxsphzgrraljq","nvolmkkwtdbfiyxuphzgeralgq","nvosmrcwtdbfiyxuphzgefkljq","nvoxmkcwtdbfiysuphzeeraljq","nvjsmkswtdbfiyxuphzqeraljq","nvosmkcetdbfiyfuphdgeraljq","nvosmkkwtpbfsyxuphzgeraljq","nvosdgcwtdbfiyxupyzgeraljq","nvosmkcwudbfiyzvphzgeraljq","nvosmkcwtlbfiyxupkzgerzljq","nvosmkcwtdbfiywuphyzeraljq","nvocmkcwtdufiyxukhzgeraljq","nvosmkcwtdqfiyxuphzgevaxjq","nvosvkcwtdbgiyxuphzgeralzq","nqosmkcwtdbfiyxuphzeeraljr","nvosmkcetdbfiyxuphzgeroljo","nvosmkcwtdvfiyxuphzceraliq","nvosmkcwtnxfiyxuphzgyraljq","nvosmkfwtdefiyxupxzgeraljq","nvosmacwtdbfiyxuphzseragjq","nvpsmkcwtdbfzyxuvhzgeraljq","nvormkcwtdbfiyxuphzairaljq","rvysmkcwtdbfmyxuphzgeraljq","nvosmscwzdbfiyxuphzgerbljq","nvosmkcwtdufmyxuphzqeraljq","nvosmkcwtxbfiyxxphzgeralxq","nvosmkcwtdbsiyxupsfgeraljq","nvosmccwtdbfiqxuthzgeraljq","nvosmtcwtqbuiyxuphzgeraljq","nvosmkcwtdbfiysurbzgeraljq","nvowmkcwtdbfiyxuywzgeraljq","xvosmkcktdbfiyxuhhzgeraljq","nvosmkgwsdbfiyxmphzgeraljq","jvofmkcwtdbfiyxupyzgeraljq","nvozakcwtdbfiexuphzgeraljq","nvosmkcptdbfiyxuphzgepaljn","nvosmkcwtdbpiyxuphzgeraxjw","nvoszkcwtdbfiyjuphzeeraljq","nvosmkcwtdbfiyxuppzoeraejq","nvosmkiytdbfiyhuphzgeraljq","nvosmkcwtdvfiywupyzgeraljq","nvosmecwtdofiyxuphzgeralja","nvosmkqwtdbfixxuphzgeraojq","nvosmkwwtdbfiyxfpdzgeraljq","nvosmkgwtdbfiyzupwzgeraljq","nmosmucwtdvfiyxuphzgeraljq","nvosmdcwtdbmiyxuphzveraljq","wvosmkcwtpbfiyxuphzgetaljq","nvosmmcwtdlfbyxuphzgeraljq","nvosmkcwtabmiexuphzgeraljq","nvosqpcwtdbfiyxuphzgqraljq","nvosmecwjdbfiyxuphzgeraljk","nyohmkcwtdbfiyxuphzgzraljq","nlosmkcwtkbfiyxuphzgeraejq","nvosmkcwrdbliyxuphzgerpljq","nvusmkzwtdbfxyxuphzgeraljq","nvosmkcwtdbfiyxuhizgerazjq","nvosmkhptdbfbyxuphzgeraljq","nvosmfcwtdbgiyxupdzgeraljq","nvosmkmwtdbfiyxuphzgevalpq","nvosmkcwtdwfiyxuphzherjljq","nvosmkcwjwbfiyxuphzgeualjq","nvosmkcwxdbflymuphzgeraljq","nvosmkcwpdbriyxuphzoeraljq","nvoshkcwcdbfiyxuphzgeravjq","nvosmkcetcbfiyxgphzgeraljq","nvosmkcwtdyfiyxuphzgerwqjq","nuosmkcwedbfiyxurhzgeraljq","nvosmkcwtdbfiixuphzctraljq","nvoszkcwtdbfwyxuphzgerpljq","nvormkcwtdbfiyxuphzgeralzn","nvosmkyttdbfiywuphzgeraljq","nvosmkcwtdbhiyxupazgeralhq","nvotmkcwtdbfiyxuphzgevalbq","nvosmkcwedbfiyxuphzguraljr","nvssmkcwtdbfiyxushzgeralbq","nvosmkcwtdeziyxuphzgeralhq","nvogmkcwtdbfiyxuphzgerrxjq","ncormkcwtdbfiyxuphzgeraloq","nvosmkcwbdbfiyeuphzgerqljq","nvosxkcwtdbfsyxupfzgeraljq","nvohmkcwtdbfiyxuphzseraajq","nvoscdcwtdbfiyxuphzgeralqq","neosmkcwtdbfiyxuchzgeralgq","njosmvcwpdbfiyxuphzgeraljq","nvosmkcwtwbfiyxuphzgehamjq","nvosmkcwtdbfiyxushzgejaljv","nvosmkcwodbfiyxuphzgeryqjq","nvoymqcwtdbfiyxuphzgeralbq","nvosmkcwtdjfiyxuphzgesaljb","nvjsmdcwedbfiyxuphzgeraljq","nvosmkcwydbfiyxuihzmeraljq","nvrsmkcwtdifiyxuphzgqraljq","nposmkcwtdbfiyxiohzgeraljq","dvosmkcwtdbfiyxuphzrvraljq","pvosmkcwudbfsyxuphzgeraljq","noosmkcwtdbfiyxuphtgexaljq","nvosmkcwtdbfiaxuphyferaljq","nvhsmlcwtdbfiyxuphzgeualjq","nvosekcwtdbbiyxuphzgerabjq","nvosvkcitdbfiyxuphzgerarjq","nvotmkkwtdbfiyxuphzgeraljj","nvosmecwtdbfiyxuphzgyralwq","hvosmkcwtdbfiyxuphzysraljq","nvosmkcvtdbfiyxlphzgeraljb","nvosmkcwttbfiyxuphngtraljq","nvoslkcwtdbfiyxuphzqeraljr","nxosmkcwtdbfibxuphzgrraljq","nvokmkhwtdbfiyxuphzgwraljq","nvosmkfwtdbfiyxuphzgdraljo","nvcsmkcwtdbfibxuphzgeraljl","nvosmkcwtdcfiaxuphzeeraljq","wvosmkcwtdbyiyxjphzgeraljq","nyosmbcwtjbfiyxuphzgeraljq","nvosmkcwtdbiiyxuahzieraljq","nqosmkcwtdbfiyxuyhzgerapjq","nvosmkcwtdbfiyxuwhzzetaljq","nvosmkcwfgbfiyxuphzgerrljq","nvosmbcwtdbfipxuphzderaljq","nvosmkcwtdgfiyxupdzgerjljq","noosmkcwtdcfiyxuphlgeraljq","nvonmkcutdbfiyxuphzieraljq","nvocmkcwtdbfiyyuphageraljq","nvosmkcwtdbfoyxuphzneraqjq","nvoskkcwtdbtiyxuphzgevaljq","ocosmkswtdbfiyxuphzgeraljq","nvosmkcqtdbfiyxfvhzgeraljq","noosmkcwtdbfiyquphzberaljq","nvosmkcwttbfijxuchzgeraljq","nvogmkcwtdbfiyxupazgeralaq","nvqsmkcwtdbfikxuphzgeraliq","nvosmkuwtdbfiyxuphzjwraljq","nyosmhcwtdbfiyxuphzgereljq","nvosmncwtdbfietuphzgeraljq","gvpsmkcwtdbfiyxuyhzgeraljq","nvozmkewtlbfiyxuphzgeraljq","nvostkcltpbfiyxuphzgeraljq","nvosmkcwtdbdiyxuphzgehaljz","nvosmkcwtjbziyxuphzgexaljq","nvosmkcwtdbfiyptphzggraljq","nvosmkcwtdbliyxupjzgebaljq","nvosmkawtdbfiyxupxzgtraljq","vvosmkcwtdbfiyxfphzperaljq","nvosmkawtdbfiyxutczgeraljq","nvosmkcbtdbuiyxrphzgeraljq","nvbsmkcwtdbfiyxdphzgerasjq","nvosnkcwqdsfiyxuphzgeraljq","nvosmkcwtdbfiyxwphzgzzaljq","nvosmkcwtdbffyquphzgeralcq","nvosmkcwtzbfiyxdphzgzraljq","nvysmkcwtdbfiycvphzgeraljq","nvowmkcwtdbfiycuyhzgeraljq","nvosbkcwtdbfiyiuphzgeraqjq","nvosmecwtdbfiyxupqzmeraljq","nvosmkcdtdbfhyxsphzgeraljq","nmosmkcwtdbziyxuphzgercljq","nvosmkcwtdbfiyxupfmgersljq","nvosmkcvtdbpyyxuphzgeraljq","nvosmkcwtkbfiyaupxzgeraljq","nvosmkcwtzbiiyxuphzgerazjq","nvoxmkcwtdbfiyxuphztegaljq","nvonmkcwtdafiyxuphzgerkljq","rvommkcwtdbfiyxzphzgeraljq","nvosmkcwthbfiysuphzgeraxjq","nvosmkcwtdbfnyxuphzgerccjq","nrosmzcwtdbfiyxuphkgeraljq","nvolmkcdtdbfiyxuphtgeraljq","nvosfkcwtdbfiyeuphcgeraljq","nvowmkcwtdbfhyxuphzgerafjq","gvosmkcwtdbfiyxupbpgeraljq","nvosmkcwtdbkiyxuphegebaljq","nvommufwtdbfiyxuphzgeraljq","uvksmkcwtdbfiysuphzgeraljq","nvosmkcwevbfiyxuphtgeraljq","nvosmkcmtdbfiycuphzgeraxjq","nvcsxkcwtdbfiyxuphzgeraljn","nvosmkcwtdbtiymuphzgeraltq","nvosmfcwtdlfjyxuphzgeraljq","svosmkcitdbfiyxuphzgsraljq"]
num_diffs :: [Char] -> [Char] -> Int
num_diffs a b = length [idx | idx<-[0..((length a) - 1)], a !! idx /= b !! idx]
num_diffs_array :: [Char] -> [[Char]] -> [Int]
num_diffs_array a b_arr = [num_diffs a b | b <- b_arr]
one_diff :: [[Char]] -> [[Char]]
one_diff string_arr = [string | string<-string_arr, elem 1 (num_diffs_array string string_arr)]