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

17 lines
446 B
Racket

7 years ago
#lang br
(require syntax/strip-context sugar/list)
(provide (all-defined-out) (all-from-out syntax/strip-context sugar/list))
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))
dir)