advent-of-code-2023/advent-of-code/2022/02/1.rkt

#lang racket

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

(define lines
    (call-with-input-file "input"
        (lambda (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))