Day 1: Historian Hysteria
Megathread guidelines
- Keep top level comments as only solutions, if you want to say something other than a solution put it in a new post. (replies to comments can be whatever)
- You can send code in code blocks by using three backticks, the code, and then three backticks or use something such as https://blocks.programming.dev if you prefer sending it through a URL
FAQ
- What is this?: Here is a post with a large amount of details: https://programming.dev/post/22323136
- Where do I participate?: https://adventofcode.com/
- Is there a leaderboard for the community?: We have a programming.dev leaderboard with the info on how to join in this post: https://programming.dev/post/6631465
Smalltalk
day1p12: input | list1 list2 nums dist sim | list1 := OrderedCollection new. list2 := OrderedCollection new. input linesDo: [ :l | nums := l substrings collect: [ :n | n asInteger ]. list1 add: (nums at: 1). list2 add: (nums at: 2). ]. list1 sort. list2 sort. dist := 0. list1 with: list2 do: [ :a :b | dist := dist + (a - b) abs ]. sim := list1 sumNumbers: [ :x | x * (list2 occurrencesOf: x) ]. ^ Array with: dist with: sim.