You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
2.2 KiB
Racket
55 lines
2.2 KiB
Racket
8 years ago
|
#lang br/quicklang
|
||
|
|
(require racket/string)
|
||
|
8 years ago
|
(provide read-syntax)
|
||
|
8 years ago
|
(define (read-syntax path port)
|
||
|
|
(strip-bindings
|
||
|
8 years ago
|
#`(module mod "lang.rkt"
|
||
|
8 years ago
|
#,@(for/list ([str (in-lines port)]
|
||
|
|
#:when (not (equal? str "")))
|
||
|
|
`(solve ,(string-trim str))))))
|
||
|
|
|
||
|
|
(provide solve #%module-begin)
|
||
|
|
(define (solve str)
|
||
|
|
(for-each displayln
|
||
|
|
(let (#;[decomp-result (decomp str)]
|
||
|
|
[decomp2-result (decomp2 str)])
|
||
|
|
(list #;decomp-result #;(string-length decomp-result)
|
||
|
|
decomp2-result))))
|
||
|
|
|
||
|
|
(define (decomp str)
|
||
|
|
(define p (open-input-string str))
|
||
|
|
(define decompressor-pat "\\((\\d+)x(\\d+)\\)")
|
||
|
|
(let loop ([bstrs empty][decompressor #f])
|
||
|
|
(define cur-pat (if decompressor
|
||
|
|
(pregexp (format ".{~a}" (car decompressor)))
|
||
|
|
(pregexp (format "~a|." decompressor-pat))))
|
||
|
|
(define match (let ([result (regexp-try-match cur-pat p)])
|
||
|
|
(and result (car result))))
|
||
|
|
(cond
|
||
|
|
[(not match) (string-append* (map ~a (reverse (flatten bstrs))))]
|
||
|
|
[decompressor (loop (cons (make-list (cadr decompressor) match) bstrs) #f)]
|
||
|
|
[else
|
||
|
|
(define maybe-decompressor (regexp-match (pregexp decompressor-pat) match))
|
||
|
|
(if maybe-decompressor
|
||
|
|
(loop bstrs (map (compose1 string->number ~a) (cdr maybe-decompressor)))
|
||
|
|
(loop (cons match bstrs) #f))])))
|
||
|
|
|
||
|
|
(define (decomp2 str)
|
||
|
|
(define p (open-input-string str))
|
||
|
|
(define decompressor-pat "\\((\\d+)x(\\d+)\\)")
|
||
|
|
(let loop ([sum 0][decompressor #f])
|
||
|
|
(define cur-pat (if decompressor
|
||
|
|
(pregexp (format ".{~a}" (car decompressor)))
|
||
|
|
(pregexp (format "~a|." decompressor-pat))))
|
||
|
|
(define match (let ([result (regexp-try-match cur-pat p)])
|
||
|
|
(and result (car result))))
|
||
|
|
(cond
|
||
|
|
[(not match) sum]
|
||
|
|
[decompressor (loop (+ sum (* (cadr decompressor) (decomp2 (~a match)))) #f)]
|
||
|
|
[else
|
||
|
|
(define maybe-decompressor (regexp-match (pregexp decompressor-pat) match))
|
||
|
|
(if maybe-decompressor
|
||
|
|
(loop sum (map (compose1 string->number ~a) (cdr maybe-decompressor)))
|
||
|
|
(loop (+ sum (string-length (~a match))) #f))])))
|
||
|
|
|