First order of my wife's art business kyoti.art arrived at its destination today!
It's amazing to see people be so excited about receiving their order. A whole different rush!
Richard
@pretzelhands.com
725 followers 297 following 268 posts
🥨 Professional pretzel 🐘 PHP, .NET and JavaScript 🧑🏼💻 Swiss army chainsaw of problem-solving ☀️ Warm presence and hype man 🎨 Part-time con husband @ kyoti.art If you're reading this, come say hi!
![[EN]: An invite for me to vote in the elections of my local chapter of the chamber of commerce. But since the last two elections in the previous months went really against my wishes, I'd rather not vote in this one anymore.](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:antzf2w26l227nutvetrfn7t/bafkreihdgexysvscgrzyfzgkyaawqfzeyrgzyzkibumx7umvalenvj62zi)
![My solution for Day 4, Part 2 of Advent of Code
module Day3Solution
open System.Text.RegularExpressions
let multiplierRegex = @"mul\((\d{1,3}),(\d{1,3})\)|don\'t\(\)|do\(\)"
let regexOptions = RegexOptions.Multiline
let extractMultipliers input =
let mutable enabled = true
let multiplierTokens = seq {
for m in Regex.Matches(input, multiplierRegex, regexOptions) do
match m.Value with
| "do()" ->
enabled <- true
None
| "don't()" ->
enabled <- false
None
| _ when enabled ->
Some((int m.Groups[1].Value, int m.Groups[2].Value))
| _ -> None
}
Seq.choose id multiplierTokens
let calculateSum input =
extractMultipliers input
|> Seq.map (fun (left, right) -> left * right)
|> Seq.sum](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:antzf2w26l227nutvetrfn7t/bafkreiblnzx246oe2exsktsycvo73pfoyy3opezou2yo7qoc2e3k75zl5a)
![My solution to Day 4, Part 1 of Advent of Code
let multiplierRegex = @"mul\((\d{1,3}),(\d{1,3})\)"
let regexOptions = RegexOptions.Multiline
let extractMultipliers input =
Regex.Matches(input, multiplierRegex, regexOptions)
|> seq
|> Seq.map (fun m -> (int m.Groups[1].Value, int m.Groups[2].Value))
let calculateSum input =
extractMultipliers input
|> Seq.map (fun (left, right) -> left * right)
|> Seq.sum](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:antzf2w26l227nutvetrfn7t/bafkreifqvule6wo7mfs5rwggqhe2n52m33dubq4mtjtt5nmi34uy5txk3m)
![My solution for Day 2, Part 2 of #adventofcode
module Day2Solution
open System
let lineToReport (line: string) =
line.Split([|' '|], StringSplitOptions.RemoveEmptyEntries)
|> Array.map int
let between low high (difference: int) =
let difference = Math.Abs difference
low <= difference && difference <= high
let isLinear (report: int array) predicate =
report
|> Array.pairwise
|> Array.map (fun (left, right) -> predicate left right && between 1 3 (left - right))
|> Array.filter not
|> Array.length
|> fun violations -> violations <= 1
let validateReport (report: int array) =
let incrementing = isLinear report (<)
let decrementing = isLinear report (>)
incrementing || decrementing
let countSafeReports input =
input
|> Array.map lineToReport
|> Array.map validateReport
|> Array.filter id
|> Array.length](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:antzf2w26l227nutvetrfn7t/bafkreibshxbczaj6wdioju4dogd3jjobl2t5qbgmu3zo3ez6flbttvdgpe)
![My solution for Day 2, Part 1 of Advent Of Code
module Day2Solution
open System
let lineToReport (line: string) =
line.Split([|' '|], StringSplitOptions.RemoveEmptyEntries)
|> Array.map int
let between low high (difference: int) =
let difference = Math.Abs difference
low <= difference && difference <= high
let isIncrementing (report: int array) =
report
|> Array.pairwise
|> Array.map (fun (left, right) -> left < right && between 1 3 (left - right))
|> Array.forall id
let isDecrementing (report: int array) =
report
|> Array.pairwise
|> Array.map (fun (left, right) -> left > right && between 1 3 (left - right))
|> Array.forall id
let validateReport (report: int array) =
let incrementing = isIncrementing report
let decrementing = isDecrementing report
incrementing || decrementing
let countSafeReports input =
input
|> Array.map lineToReport
|> Array.map validateReport
|> Array.filter id
|> Array.length](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:antzf2w26l227nutvetrfn7t/bafkreiab6k2owzuuemkkn75t2bkyzasx4xviyekyefpodawckxnk3degwy)
![My solution to Day 1, Part 1 of Advent of Code
let splitIntoTuple (line: string) =
let parts = line.Split([|' '|], StringSplitOptions.RemoveEmptyEntries)
(int parts[0], int parts[1])
let separateIntoLists (input: string) =
input.Split('\n')
|> Array.filter (not << String.IsNullOrWhiteSpace)
|> Array.map splitIntoTuple
|> Array.unzip
let calculateDistance (input: string) =
let (left, right) = separateIntoLists input
let leftList = Array.sort left
let rightList = Array.sort right
(leftList, rightList)
||> Array.map2 (-)
|> Array.map Math.Abs
|> Array.sum](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:antzf2w26l227nutvetrfn7t/bafkreihchxt33nnvqfyoglq2valnqkkfjsrzxa6tsxvmysqu6f6rkvmicy)
