blob: 5114c9cca1d3d591be32a77a0a2db2e38294f7ef (
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
|
#lang racket
(require "../../lib/utils.rkt")
(define lines
(call-with-input-file "input"
(λ (fp) (get-lines fp))))
(define games (map string-split lines))
(define (score game)
(define (base-score mine)
(cond ((string=? "X" mine) 1)
((string=? "Y" mine) 2)
((string=? "Z" mine) 3)))
(define (win-score mine oppo)
(cond ((string=? "X" mine) (cond ((string=? "A" oppo) 3)
((string=? "B" oppo) 0)
((string=? "C" oppo) 6)))
((string=? "Y" mine) (cond ((string=? "A" oppo) 6)
((string=? "B" oppo) 3)
((string=? "C" oppo) 0)))
((string=? "Z" mine) (cond ((string=? "A" oppo) 0)
((string=? "B" oppo) 6)
((string=? "C" oppo) 3)))))
(+ (base-score (cadr game)) (win-score (cadr game) (car game))))
(apply + (map score games))
|
