blob: 1644885a5aee9a893876c16812cd6fb63e83b77d (
plain)
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"
(lambda (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))
|
