blob: 40b4f237c93a89e308a014b7cbf61548b868e99d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#lang racket/base
(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))
|
