🌟 Advent of Code (AoC) 2023 🌟

import re

values = []
with open('input.txt', 'r') as file: 
    for row in file:
        values.append(row.strip())

n = 0
total = 0
int_list = []

for row in values:
    int_list.append(re.sub('\D', '', values[n]))
    n = n + 1
    total = total + int(int_list[-1][0])*10 + int(int_list[-1][-1])
    
print (total)

import re

values = []
with open('input.txt', 'r') as file:
    for row in file:
        values.append(row.strip())
new_values = []        
n = 0
for row in values:
    new_values.append(values[n].replace('one','on1e').replace('two','tw2o').replace('three','th3ree')
                     .replace('four','fo4ur').replace('five','fi5ve').replace('six','si6x').replace('seven','sev7en')
                     .replace('eight','eig8ht').replace('nine','ni9ne'))
    n = n + 1


n = 0
total = 0
int_list = []

for row in new_values:
    int_list.append(re.sub('\D', '', new_values[n]))
    n = n + 1
    total = total + int(int_list[-1][0])*10 + int(int_list[-1][-1])
    
print (total)

var lines = File.ReadAllLines("input.txt");
Console.WriteLine("Part 1 " + lines.Sum(FirstLast));
Console.WriteLine("Part 2 " + lines.Sum(x => FirstLast(DigitiseWords(x))));

int FirstLast(string str)
{
    char[] digits = ['1', '2', '3', '4', '5', '6', '7', '8', '9'];
    char first = str[str.IndexOfAny(digits)];
    char last = str[str.LastIndexOfAny(digits)];
    int output = int.Parse($"{first}{last}");
    return output;
}

string DigitiseWords(string word)
{
    return word
        .Replace("one", "o1e")
        .Replace("two", "t2o")
        .Replace("three", "t3e")
        .Replace("four", "f4r")
        .Replace("five", "f5e")
        .Replace("six", "s6x")
        .Replace("seven", "s7n")
        .Replace("eight", "e8t")
        .Replace("nine", "n9e");
}

import re

with open('Day1/input') as file: 
    lines=file.readlines()


sum = 0
for line in lines:
    line = line.strip()
    matches = re.findall(r'\d', line)
    value = matches[0]+matches[-1]
    sum+=int(value)
print("Step one:", sum)

sum = 0
for line in lines:
    line = line.strip()
    original_line = line
    for x in range(2, len(line)):
        line = line[0:x].replace("one", "1").replace("two", "2").replace("three", "3").replace("four", "4").replace("five", "5").replace("six", "6").replace("seven", "7").replace("eight", "8").replace("nine", "9") + line[x:len(line)]
        if line != original_line:
            break
    first_digit = re.findall(r'\d', line)[0]
       
    line = original_line
    for x in range(1, len(line)):
        line = line[0:len(line)-x] + line[len(line)-x:len(line)].replace("one", "1").replace("two", "2").replace("three", "3").replace("four", "4").replace("five", "5").replace("six", "6").replace("seven", "7").replace("eight", "8").replace("nine", "9")
        if line != original_line:
            break
    last_digit = re.findall(r'\d', line)[-1]
    
    value = first_digit+last_digit
    sum+=int(value)
print("Step two:", sum)

sum = 0
for line in lines:
    digits = re.findall(r'\d', line.replace("one", "on1e").replace("two", "t2o").replace("three", "t3e").replace("four", "f4r").replace("five", "f5e").replace("six", "s6x").replace("seven", "s7n").replace("eight", "e8t").replace("nine", "n9e"))
    sum+=int(digits[0] + digits[-1])
print("Step two:", sum)

    public override object A(string data)
    {
        return data
            .Split("\r\n")
            .Select(line =>
            {
                var digits = line.Where(char.IsDigit).ToList();
                return int.Parse(new string(new[] {digits.First(), digits.Last()}));
            })
            .Sum();
    }

    public override object B(string data)
    {
        var lineValues = new List<int>();

        foreach (var line in data.Split("\r\n"))
        {
            List<char> found = new List<char>();
            for (int i = 0; i < line.Length; i++)
            {
                if (char.IsDigit(line[i]))
                {
                    found.Add(line[i]);
                    continue;
                }

                for (int j = i + 1; j <= line.Length; j++)
                {
                    if (Nums.TryGetValue(line[i..j], out var c))
                    {
                        found.Add(c);
                        break;
                    }
                }
            }

            lineValues.Add(int.Parse(new string(new[] {found.First(), found.Last()})));
        }

        return lineValues.Sum();
    }

    private static readonly Dictionary<string, char> Nums = new()
    {
        {"one", '1'},
        {"two", '2'},
        {"three", '3'},
        {"four", '4'},
        {"five", '5'},
        {"six", '6'},
        {"seven", '7'},
        {"eight", '8'},
        {"nine", '9'}
    };

main :: IO()
main = do
    input <- readFile "inputs/Day1.txt"
    print 
        $ sum 
        $ map ((read::String->Int) . (\(Just f, Just l ) -> [f,l]) . firstAndLast) 
        $ lines input


firstAndLast :: String -> (Maybe Char, Maybe Char)
firstAndLast s = (find isDigit s, find isDigit $ reverse s)

main :: IO()
main = do
    input <- readFile "inputs/Day1.txt"
    print
        $ sum
        $ map (\line -> findFirst line * 10 + findLast line)
        $ lines input

findFirst :: [Char] -> Int
findFirst s = helper 0 s take

findLast :: [Char] -> Int
findLast s = helper 0 s (\li ls -> drop (length ls - li ) ls)

helper :: Num t1 => t1 -> t2 -> (t1 -> t2 -> [Char]) -> Int
helper len s f
    | or tests = fromJust (elemIndex True tests ) `mod` 10
    | otherwise = helper (len + 1) s f
    where tests = [isInfixOf digit $ f len s | digit <- digits]

digits :: [String]
digits = map show [0..9] ++ ["__blank__", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"]