blob: a758715fca6203183c0411ffcd35cf9d26e5c9f2 (
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
34
35
36
37
38
39
40
41
42
43
44
45
|
! Copyright (C) 2024 Julien (adyxax) Dessaux.
! See https://git.adyxax.org/adyxax/advent-of-code/tree/LICENSE for EUPL license.
USING: combinators.short-circuit.smart grouping io io.encodings.utf8 io.files
kernel math math.order math.parser prettyprint sequences splitting ;
IN: aoc.2024.02
<PRIVATE
: load_input ( filename -- reports ) ! reports are a sequence of levels
"~/git/adyxax/aoc/2024/02-Red-Nosed_Reports/"
swap append utf8 file-lines
[ split-words [ string>number ] map ] map ;
: bounded? ( levels -- ? )
[ - abs 1 3 between? ] monotonic? ;
: any_monotonic? ( levels -- ? )
{ [ [ > ] monotonic? ]
[ [ < ] monotonic? ]
} || ;
: safe? ( levels -- ? )
{ [ any_monotonic? ] [ bounded? ] } && ;
: part1 ( filename -- n )
load_input
[ safe? ] count ;
: candidates ( report -- reports )
dup length <iota> [ over remove-nth ] map nip ;
: safish? ( report -- ? )
candidates [ safe? ] any? ;
: part2 ( filename -- n )
load_input
[ safish? ] count ;
PRIVATE>
: aoc202402 ( -- )
"input" part1 .
"input" part2 . ;
MAIN: aoc202402
|
