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.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.
aoc-racket/2017/helper.rkt

22 lines
534 B
Racket

7 years ago
#lang br
7 years ago
(require syntax/strip-context sugar)
(provide (all-defined-out) (all-from-out syntax/strip-context sugar))
7 years ago
7 years ago
(define ') (define ★★ '★★)
7 years ago
(define (port->datums port)
(for/list ([datum (in-port read port)])
datum))
(define (number->digits num)
(for/list ([c (in-string (number->string num))])
(string->number (string c))))
(define (dirname path)
(define-values (dir name _) (split-path path))
7 years ago
dir)
(define (=* . xs)
(or (< (length xs) 2) (apply = xs)))
(define (app x . args) (apply x args))