blob: 310f72e209baf75602e020bc649a8acbfb4f92d7 (
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
46
47
48
49
50
51
52
53
54
|
#!/usr/bin/guile -s
!#
(add-to-load-path (format #f "~a/2024" (getcwd)))
(add-to-load-path (format #f "~a/.." (dirname (current-filename))))
(use-modules
(aoc-utils)
(srfi srfi-1)
(srfi srfi-9)
(ice-9 regex))
(define (all-decresing? report)
(equal? report (sort report >)))
(define (all-incrising? report)
(equal? report (sort report <)))
(define (safe-head? report)
(if (>=(length report) 2)
(let ((diff (abs (- (first report) (second report)))))
(and (<= diff 3) (>= diff 1)))
#t))
(define (safe-difference? report)
(cond ((not (safe-head? report)) #f)
((null? report) #t)
(else (safe-difference? (cdr report)))))
(define (safe-report? report)
(and (or (all-incrising? report)
(all-decresing? report))
(safe-difference? report)))
(define (part1 lines)
(let ((reports (lines->number-list lines)))
(fold + 0 (map (lambda (report) (if (safe-report? report)
1
0)) reports))))
(define (part2 lines)
(let ((reports (lines->number-list lines)))
0))
(define (main)
(let ((lines (file->list "input.txt")))
(display "Part1: ")
(display (part1 lines))
(newline)
(display "Part2: ")
(display (part2 lines))
(newline)))
(main)
|
