blob: a34721e01b599936501c5a0316a2801a790d1618 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
! Copyright (C) 2024 Julien (adyxax) Dessaux.
! See https://git.adyxax.org/adyxax/advent-of-code/tree/LICENSE for EUPL license.
USING: assocs io io.encodings.utf8 io.files kernel math math.parser
math.statistics namespaces prettyprint sequences sorting splitting ;
IN: aoc.2024.01
<PRIVATE
: load_input ( filename -- array array )
"~/git/adyxax/aoc/2024/01-Historian_Hysteria/"
swap append utf8 file-lines
[ split-words harvest ] map unzip
[ [ string>number ] map ] bi@ ;
: part1 ( filename -- n )
load_input
[ sort ] bi@
[ - abs ] 2map
sum ;
: part2 ( filename -- n )
load_input
histogram ! turns an array into a hashtable of { value occurrences }
'[ dup _ at 0 or * ] map
sum ;
PRIVATE>
: aoc202401 ( -- )
"input" part1 pprint nl
"input" part2 pprint nl ;
MAIN: aoc202401
|
