advent-of-code/2022/01/2.rkt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#lang racket

(require "../../lib/utils.rkt")

(define lines
  (call-with-input-file "input"
    (λ (fp)
      (get-lines fp))))

(define elves (split-list-by "" lines))

(define (elf-sum elf)
  (apply + (map string->number elf)))

(define elf-sums (sort (map elf-sum elves) >))

(+ (car elf-sums) (cadr elf-sums) (caddr elf-sums))