#lang racket

(require gonz/human-time)
    
(human-time 5m3s) ; 303

#lang racket

(require gonz/list-comprehensions)

(<- (- x y) [x '(9 8 7 6)] [y '(1 2 3 4)]) ; '(8 6 4 2)

#lang racket

(define episode-list '("S2E1"
                       "S2E2"
                       "S2E3"
                       "S2E4"
                       "S2E5"))
  
(map (lambda (episode-string)
      (with-matches
         #px"S(\\d)E(\\d)" episode-string
         (format "S0~aE0~a"
                 (m 1) (m 2))))
     episode-list) ;; => '("S02E01" "S02E02" "S02E03" "S02E04" "S02E05")